Canada $4.25 
USA $3.50 
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256K memory expansion for your 64! 

High-performance ML graphics routines 

C-128 CP/M+ memory maps 

Cycle counting for machine language programs 

Using RS-232 printers on the 64 

Jim Butterfield on C-128 windows 

The ML Column: division routines 

Computing the distance between stars 

Re-pr.ogramming the 1581 

Reviews: Three CI 28 assemblers - Merlin, LADS and Buddy; the Final Cartridge 
vs. Action Replay Mk. IV; Brainstorm, Brainpower and Story Writer 
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LeafDroiion by Wayne Schmidt 



Our Third Year 
B In Business! 

We Know How 
■ To Service 
Our Customers! 



■■<;. 



V* 



. r 



SOLID PRODUCTS & SOLID SUPPORT 

P.O. Box 129 / 58 Noble Street 
, Kutztown, PA 19530 

24HOURS — TOLL FREE 
^— 1-800-638-5757 -^^ 

OUTSIDE USA CALL 1-215-683-5433 



SATISFACTION 

GUARANTEED 

Earn Bonus $$ 

No Surcharge On 
Charge Orders , 

Friendly Service 
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ACCESSOAIES 




C^arlpak64 | 29 


P S.V P S 


21 


Onodlo/84 1 29 


Monopoly C8 4 


.. 








Evelyn Wood &/namic Reader 17 


Sky Travfll 


35 


Flfl<idratt5 5/64 29 


Muscle Development Package 


54 




40/80 likilumn Switch Cable % 18 


KFSAccounlanl128 109 


StKTkybear ABC's 


22 


Fle.ifonU64 24 


Scrabble 


29 




Apro tule ruler CartrKJge PofI 


17 


Leroy's Cheatsheets Call 


Sthckybear Malti 1 


22 


Graphics An Disk 1 10 each 1 3 


Scruppies 


29 




Apro Exlender Jser Port 


19 


Leroy'^ Label Maker 24 


Stickybearh^lhS 


22 


Graphics GallenaPakl 24 


Soi-ual Eage/64 


19 




Aprospan 4 Slot Canudge Holdej 


25 


Microiawyer/64 39 


Stickybear T^ umbers 


22 


Graphics Gallena Pak 2 24 


Stress Red ucnon -Enhanced 


299 




Cover 1 &41 


7 


Paperclip Publisher 39 


Stickybear Opposites 


22 


Graphics Intergraliy 2/64 24 


Stress fleducbon Standard 


89 




Cover 1571 


9 


Partner t2e 39 , 


Stickybear Reading 1 


22 


Home Designer 45 


Stridei' 5 Classic 1 lOeach 


5 




Cover C 128 
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Partner 64 3D 


Stickybear Reading Comprehension 


22 


Home Designer/Circuit Symbol Lib 10 


Tarol128 


15 




Cover C64 
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Personal Portlotio Manager 128 42 


Stickybear SpellgraQber 


32 


Icon Factary/64 28 


Wheel ol Fortune 2 


12 




Cover C64 C 
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Personal Portlolio Manager 64 29 


Stickybear Townbuilder 


22 


Label Wizard 21 








Disk SUHage Ca^e 75 Di^k 

FX Bx t ^ r 1 14 fk I 


11 


Pocket Superpak 2 (DigiiaJ) 67 

Sylvia Porter's Frnanc 13 1 Plan 128 39 


Stickybear Typrng 
Success *'Math Add 4 Sub 


22 
23 


hfewsfoom 1 7 
PC Board Makflf 64 79 








Diske>tes5V;Floppv^1upak 


4 
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Drive Bon 


27 


Techrncal Analysis System 1 28 42 


Success w/Maih Add/Sub Decimals 


23 


Perspec lives 11/84 39 


SPflEADSMETS 






FrnakCanridge V3 


49 


Technical Analysis System 64 29 


Success w^Maih Adil/Sub Fractions 


23 


Photn Finish 19 
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Hots hoi Plus Interlace 


69 


Timewofks Account Payable 64 39 


Success w/Marh Mo it/Div 


23 


Posicarfls 19 


Pocket Planner 2 


29 




JoysticK Bat Handle 


2Z 


TimewQFks Accounts Recetveable 6439 


Success w'Uaih Mu It/Div Decimals 


23 


Pnnmiasier-Fantasy An Gallery 15 


Switlcalciraw/Sideways 


39 




Joysli[;h ErQO Slick 


11 


T imework s Ge neral L edger 64 39 


Success w/Malh Mult/Div Fractions 


23 


Pnnmiaster Gallery l'64 15 


Switlcaic 84 w/Sideways 


17 




Joystick Super 3 Way 


Ih 


Timeworks Inventory Managemni 64 39 


Toy Shop 64 


22 


Pnnunaster Gallery 11/64 15 


Vl^^S^ar 1 2fl 


GD 




JoysItchT^e Boss 


16 


Time works Payroll 64 39 


WhereinEurope is Carmen Sandiego 


29 


Prinbnasler Plus/64 25 








litfhtpen Model 1 70c 

Lighipen Model lfl4c 

M 3 Uouse G4/1 28 Propartional 


69 
49 
39 


Tiniew Orks Sales Analysis 64 39 


Where in USA IS Carmen Sandiego 
Where in World is Carmen Sandiego 
WKlham Classics- A liceJWornJerlgnd 


29 
29 
12 


Pnnl&1iop/84 35 
Pnnisbop Companion 27 

Prinisbw Holiday Edition 1 9 
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Mach 12a Cartridge 

Mousepaa 

Paper Banner Band 45 IT, Colors 


35 

a 

10 


0? 


DATA BASES 


Wtdham Classics-Se low the Rool 
Widham Classics-Swiss Famly Robs 
Widham Classics- Treasure Island 


12 
12 
1? 


Screen fix. 25 

Skefcbpadl2aNEW 24 
Slideshow Creaior 13 


1 1^ * 1 J1 1:71 Ht.i.n li l.ft-ii-.f, ffl 


oj; 




itamanagpr 1?B 39 


1 jhiii jr 1 urive Aiignmeni 

Assembler/Monitor/54 


29 




Paper Banner Band 45 It Cliristmas 


10 


j Dalamar}d9er?(GJ} 17 | 


Widham Classtcs-WEzard of 01 


12 


Video Title Shopw/GrComp 1 25 


Basics 


25 




Paper Banrker Band 45 Ft Parrv 


10 
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Basic Compiler/1 28 


42 




Paper Parchment Color 
Power Supply CI28 Hepairable 


10 
55 














Basic Compiler's 4 

Big Blue l^eadef 64/128 


29 
32 




Powei Supply ce4Bep3irarile 


39 














Bjfisferm Pro/138 


43 




Quich Brown Bu* 64K 


99 














BoffSterm Pro/64 


35 




RGB to RCA C3bl# 


9 






OUR POLICY 








CP/M Kit 


22 




RS23? Oeiu-e Interlace 
Ribbons lor Printer 


39 
Call 




Our poTicv ts to stock w 


hal we advertise and carry Uie bBt 


;t products available toF 




Coboin 28 
Cobol/64 


29 
29 




Security Analyst 128 


%pi_ii 

35 




your C64 and CI 28 cor 


Tiputers. Over 40O ot the best productivity, edticational & 
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Gnome Kif64JT2S 


29 




Serial Box 2 Itn 1 


29 




technica software and 


a host of accessories in slock now! And CHECK OUT OUR 




Gnome ^)eed Conipiler 1 28 


29 




Senal Bo^ 4 Ioj 1 

Serial to Serial Cable-a tl. 


39 
9 




Ct2BLN£!youwiJ|[}e 


amazed at tfte number ot product 


s that we carry for this 




Merlin 1 28 
Merlin 54 


45 

35 




Super Chips 128 


45 




fantastic macfun^ 










Physical E«am 1 541 


29 




Super Chips 12BD 


45 














Physical Exam 1 5 ? 1 


29 




Super Chips 64 


25 














Power Assembler 64/1 28 


30 




Super Chips 64 mode on 1 2fl 


25 














Power C 64/1 28 


30 




Super GraphiN GoJd Printer Inlric 
Warpspeedl28 


89 
35 















Programmers Toolbo?/84 
Prololinc BBS 1 28 
Proloterm12e 

J^ B^J^J-l ^ J~| n 


15 
29 
12 
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FleelMler b4i!^d i^y 
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W' GARAGE SALE 


RamOOS12B 


29 




^^■b noo ™ 


P^^B 


Pocket Filer 2 29 
SuperbasG 128 49 
Soperbase 64 42 


Becker Basic tor GEOS 64 

Desk Pak Plus Geos 


35 
22 
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Renegade 

Super 81 lllilibes1orCl2B 

Super 81 Drililieslor 064 


29 
29 
29 




C Power 128 18 

Cover 1541 4 




1541 Troubleshoot & Repair GurilB 


17 




1571 Inlernals Book 


17 


Suprbse'SuprscrpUBook 128 PACK 69 


GEOS 84 v 2 


39 


CovflfC64 4 


Super Aide 64 


25 




Analwny ot C&4 


17 


Soprbse'Supi-scipl/Sook 64 PAK 59 


GEOS Prog rammer'B4 


45 


Decision Maker 10 


Super CI 28 


45 




Analomy ot lbs 1541 Book 

Basic 7 Internals Booh 


17 

19 


1 
1 




GEDS Wrile Workshop/64 
GEOS Wrile Works hopM 28 


39 
45 


Fle-i Aided Oesigri 15 
Forecaster Brainpower 10 


Super C 64 

Super Disk Librarian lor CI 28 


45 

19 
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Ba^iC 7 (or CI 28 Book 


10 


BmCKTIONAL 


Geocalc 1 28 


45 


GEOS Gel Most Disk 3 


Super OiskUtilitiesl28 


25 




Beginner s Guide to BASIC e 15 
Cl2a Assembly Language Proq Book 14 


A 
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GeocalcJ64 

Geotile 1 ?fl 


35 
45 


Maps ot Europe/ 6 4 12 
Maps of USA/64 1? 


Super Pascal 1 28 
Super Pascal 54 


45 
45 




ipbabei Zoo 18 




Cl2a Internals Book 


17 


Aipbabuiid^64 G 


Geotile/64 


39 


Maps ef the Worl(y64 12 


SuperSnapshoi 4 W/C128 Disable 


65 




Ci2fi Proyiamnier'^ Ref B&ok 


?0 


Calculus by Numeric Methods 27 


Geopublish 54 


45 


Numbers at Work 10 


Super Snapshot V4-Hew 


59 




Cl2fl TroublesbDoiir>g i Repa^r Book 1 7 \ 


Con ntif>g Parade 6 


Geos/1 28 


45 


Profecl Planner 10 


Syntech BBS Const Sel/64 


39 




C64 Basic Programming 


28 


Early Leafning Friends/64 6 


Geospell 64/128 


19 


Tempo Type 12 


Syntech BBS Games Module 


15 




C64 Prog rammer'? Relerence Guide 


17 


Easy Sign 1 7 


Fonlpak Plus 


22 


Wordpro128 15 


SysHES Enhanced 


30 




Ce4 Tips A Tricks Book 
C84 TroubleshQQt £ Bepair Guide 
C64/128 AsmblyLanp Prog Book 
CEOS in&HJe & Oui Book 
CEOS Programmer s Re( Guide 


17 
17 
14 
17 
17 


Facemaker^E4 IB 
Firsi Uennn UDonWalW6^ 19 
Grandma's HouseJ64 6 
Hayden SAT Preparation 32 
Jungle Booh {Reading 2J 19 


Wordpubiisher 84n 2S {tor GEOSJ 


28 
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AH 1? 


Bankstreet Writer 


35 




GEOS Tips S Tricks Book 
K Jax Book ReveaJed 2 


15 
Z3 


kidsonKeys 18 
KidSword/84 35 




25 


Bazooka Bill IS 
Blackjack Academy/C64 27 


Fleet System 2 -f/64 
Fleet System 4 


39 
52 




Advanced Art SludioJ64 




K Jaj^ Book Revealed 1 


?3 


KidwriterJG4 22 


■ Animation Station 


65 


Christmas aassics/64 10 


Fonim aster 1 28 w/Speller 


39 




Machine Language 84 Book 


13 


KinOercompy64 1 8 


1 Award Maker PliisJCG 4 


29 . 


Boston Banender's Guide 1 2 


Fontm aster 11/64 


35 




Sirperbase The Book 64n 28 


T5 


LmkwonJ German 19 


Billboard Maker/64 


25 ' 


Bridge 5 22 


Paperclips 


39 




Trou&leshoot & Repair C64 Book 


la 


Link*o"J French 19 


Bl^zirig Paddles 


25 


CardJo Exercise & HeaiHab Combo S5 


PockelDlctkinary 64/128 


10 




TwmCilies 12B Compendium 1 


15 


Linkwofd French 2 19 


Bumperstjcker Maker 


35 


Celebrity CDokbooW64 19 


Pockel Writer 2 


39 








Lmkword Italian 19 
Linkword Bussiar> 19 


Business Card Makei 
Bution & Badge Maker 


29 
39 


CtiessmasEer 200/64 30 
Crossword Magic 39 


Superscript 1 28 
Viziwnte 128 


45 

60 










BEKERAL PflDDUCWiTV 




LmkwonJ ^msh 19 


Cad 30^64 


39 


Or. Ruth's Book ol Good Se* 22 


Wordpro 128 w/Speller w/Filepro 


3D 








Little Computer Peopfe 12 
Mafhbusfers/64 6 


Cadpakl28 
Cadpak;64 


42 
29 


Dream Machine Analyze/84 19 
Family Treel2fl 39 


Wordpro64 w/Spellerw/TurboLoad 30 1 
WDrdwriter128 39 | 




Business Form Shup/fi4 


30 




CMSAccoufliingyi28 


129 


Mavis Beacon Teaches Typing^C64 3D 


Certpiicate Maker 


17 


Family Tree 64 39 


Wordwriter 3 tor 064 


30 




CMS Accounling/64 


129 


Peler^ WollMusic/84 19 


Colore; 1 28 New Veision 


12 


Jeop^dy2 12 


Write StufI 64 


19 




CMS inventory Module 1 28 


53 


Peler Rabbit (Reading I) 19 


Computer Eyes 


105 


WemoiV Academy 128 15 


Write StufI 64w/Talker 


24 




Chartpak 1 28 


29 


Proliilor Accounting 128 69 


1 Create a Calendar 


22 


Micro Kitchen Companion 29 


WfiteStutlCl2S Version 


24 


1 
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1541/1571 Drive Alignment 

This excellent alignment program is a must have 
tor every Commodore owner. Easy to use, it helps 
you 10 a'ign your drive so that it runs just as if it 
were rtew! The simple instrifctional manual and 
on-screen help pfompt you thru the alignment 
procedure and help you adjust the speed and head 
stop ot your drives. It even mciudes mstructions 
on how to load the alignment program when 
nothing else will load. Don't be caught short! We 
get more RED LABEL orders for this program, then 
any other program we sell. Save yourself the 
expense! Order now, keep it in your library and 
USB the 1541/1571 i>ive Alignment program 
regularly!! Works on the C64, CI 28, and SX64 for 
both the 1541 and 1571 drives. 



STILL ONLY $25.00 




at 

CHRISTMAS CLASSICS 

Enjoy your Chnstmas' Beautiful Christmas scenes 
are displayed wnile your compjler plays your 
favorite holiday songs. Sing along to Deck the 
Halls, Jingle Bells, Rudolph. Silent Flight and more, 
as the lyrics to these Christmas classics scroll 
across the screen. Great tor your holiday 
gathenrgs' 



JUST $10 



HOLIDAY SPECIAL! 

Get your FREE 
Christmas Classics 

with any order over $75. 
offer good until 12/31/86 
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RtmDOS 128 

Yes... we know that Ram Expanders are scarce 
these days. But tor you lucky ones that already 
have one, HamDOS 12S is just tor you! This 
complete RAM based "Disk" Operating System for 
the 1750 RAM Expander, will turn ALL or part of 
your expansion memory into a lightiingtast RAM 
DISK! Under RamDOS, a 50K tile( 1 90 blocks) will 
load in jusi V? second. Load entire disks or 
individual tiles into your expansion memory and 
gel to work. When done save the entire memmy 
or individual files back to your disk for permanent 
storage, RamDOS makes your work fast and easy! 

only $29.00 

(Cl 28 and 1 750 Ram Expartde* required) 




Home Designer 
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Home DeilgnerCAD 128 

Given glowing ratings by every major Cwnmodore 
magazinen this CAD system outclasses every 
other CAD program, because of its object-based 
design. With over 50 powerful commands, 5 
drawing layers^ superb support o1 library figures 
and lazer-qualily printouts at ANY scale on your 
dot matrix printer or plotter, you can create 
drawings so accurate that a blueprint can be made 
from them! 

Tired of working with poor quality/ inaccurate print 
outs, manipulating little dots on a bit map, giving 
up on detailed work because you can't zoom in 
close enough? Join the professionals* 



only $45.00 



mouse oc lOystKik re<iijirHl 
NEW Engineering Library dish awailaCrie now. SlO.Ofl 
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CATALOGS 

People ten us our catalog is the BEST! find out te 
yourself. Our 40 page catalog is crammed full of 
det£^led descriptions of hundreds of C64/C12a 
products. Call or Mite for your copy today! 

BONUS DOLLARS 

EARN BONUS SS$ WHEN YCHJ ORDER!! For every 
$50 of softw^e and accessories that you order, 
you earn one bonus dollar, Biat's an additionai 
2% discount'] Use your bonus dollars on future 
purchases. 





SOLID PRODUCTS & SOLID SUPPORT 

P.O. QOK 139 ' 58 KobJe Sireel 
Kuf?tDwn, PA 19530 

24 HOURS - TOLL FREE 

1-800-636-5757 




SKETCHPAD 1 28 

Brand new from Free Spirit, Sketchpad 138 fully 
supports your CI 28 and takes advantage of its 
crisp 80 column graphics capabilities. It is packed 
with al[ the features of a professional drawing 
package such as drawing SIWOOTH freehand lines, 
3D Solids, creating Slideshows, Cut & Paste, Clip, 
Flip, Enlarge, Shaded Fiil Patterns, a variety ot 
Fonts, Air Brush and more! It supports Printshop 
graphics and is completely compatible with ail 
BASIC 8 files. 

Sketchpad 1 28 unleashes the graphics power of 
your CI 28! It supports your 1351 Mouse, 64K 
Video Chip, 1581 drive and 60 column display. 
What more could any real C1Z8 user ask for? 

ONLY $24.00 
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Super 81 UtMat 

This full featured disk utilities system, for your 
1581 drive, is available in both C64 and CI 26 
versions. Among the many teatures included in 
this fine package are: 

*Copy wholp Linpro1e[;ied 3 54 U1 571 dlsh^ to I^Bl partiliDns 

'Copy unproiecled 1541flb71 hies to I5fl1 disks 

•Copy urtproiflcled 15fl1 Files lo 1571 disks 

•Backup Ibai Hies 01 dlsKs WITH 1 orJlBfll's 

-1 501 Disk Editor, Onve Uonilor and RAM Wnter 

«li>clLii}es numerous DOS cornmands such 3S Rename a flWdiSl^, 

•Scratcii/Unscratch liles, LockJUnrock hies. Creaie Aulo Boot and 

moie 

Tired of not being able to use yoor 1581? Super 

81 will get that great little drive out of the closet 

and into use Q^|y 329.00 

(please specify 064 version or C128 version) 
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SUPER PAK SPECIAL 

Now the beit database on the market has been 
combined wrilh <^m^^ and .^v^ The 
Book into one super package with one super h)w 
price. 

Though easy for the novice to use, the ability to 
write BASIC like programs to set up your own 
custom applicahons. turns this system into a true 
database of incredible power! Combine it with 
SUPERSCRIPT, a sr^histicated text management 
system, that includes a spellchecker, calculator 
and mailmerge facility and you have an 
unbeatable team! And as an added bonus, you will 
also get SUPERBASE THE BOOK, FREE! 

Get an three C84 Version S59.00 

In one Supsr Pakl C126 Version S69.00 



GREAT ACCESSOf»£S R)R YOUR C64/C128 
The Drtve Box - With some simple soulderrng you 
can make any Commodore drive switchable bet- 
ween devices 8, 9, 10 or 11 and also write the 
unnotched side of your disk - S27.00 

2-For-1 or 4-For 1 Serial Boxes - Connect 2 or 4 
peripherals to the box and share with another 
device. Multiple computers sharing one drive, 
f^rtultiple printers hooked to one computer, etc. 
2-For 1 Box is $29.00. 4-For'1 Box is $39.00. 

Ouick Brown Box ■ A great cartridge into which 
you can write programs, utilities or data Mes. 
What you store will remain intact, even with the 
cartridge unplugged or the computer turned off! 
32K Box is S79.00; 64K Box is $99.00. 

M3 hlouse - If you are looking for a reliable, well- 
hu\\\ fully propoftional mouse, stop looking! 8uilt 
by Contriver, the M3 Mouse is the best we've 
seen. S3100. 
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ApnUHUfl iHTHUCtlOHS 

for ywr coiivwi*ftCB, you can tface a pnoM ordsr 2A HmmS/7 D*YS A I^D( wi ow TOLL-FRK UNE 
1 Sdo-flsa 5757, PriCB. AvaitablHry mkI ComiatabHity Czechs ar& also Wrtconw on our ofdor Ibw, Momlay 
thru Friday, ftAM-JPM EST. ATT^H HO^, Onttts Only ?U33^\' When Diacina an ordei, t^aasfl SpHctty yow 
KftPUTKI MODEL, HOME & DAYTIPft PHWE r^MBfe, SHIPPING ADWffSS, hKTfWD OF PAYW&^T m 
rrtMS WDERED. To ftato us swvb ym* bstttf, p^easa ha«i alt yow InfocmaeonH nKlui*">g your CTARGt 
CARD iHimEMT, raady MHb you call us. 

ACCEPTED PAYfcffiHr METHOOS; We tfatfy accept paymnnt by, RSPAW) BY PERSONAL CHECK Ml m 
ho« lor clwrJiia) Of fcftQNEY OBDER: Cfe (coiilinmial USA only AMJ J4 00 ADOn^KWAL); ttASreRCW©; 
VISA; SCHOOL PURCHASE ORDERS. AB paymenl musl bfl in USA DOLLARS. THERE IS MO SURCHARGE FOR 
CHARGE CAf^ and your can! ts NOT cTcrOAd lifitil wa ^. 

TEQMCAL NIteilT 

W6 do OUT vflry best lo help you wtb your product s6«tiDns. beror* you orter and after you roofve your 
pffflJucl Genaral nue&liona, price. utA conwtibfflly with yout compulBf. elc. vrlM be handled by ouf OFdor 
siatt at lt« ItniB you (ttce your onler. BUT ii you have soeclTk;, detailed Quealions abcui a^^oj^t, priniBr 
comjiatibilfly ouesdons etc . you will oet Itio mosi htfp from tfljx TEf>WICAL SUPPORT LfNE at 
Z \ 5 &fl3'5699. m Monday tlifu Fnday, 9Wil-4PM EST, and our trained tech staff win be happy to h^ 

W---- ...■■^-^ ^ ^- ^. : 



reucY 

ALL ffifDEf^ received belorp 3M EST wRi noimaey be shaved uhtw or next business day. Oul-al StcK^ 
Fiems wM bs shiMBd by Hw same shipp^no meiliod as onginal order, rwrnialy *ittm 3 or 4 buSneas days. 
AB UPS El^pmants are svit StGNATURE FSOUIRED'VO DRIVER RELEASE ADD ibe loSowing sapping 
chaiQas lo your TOTAL soRwaiB order. 

l^S: GR0Ur^»4.00 (copl USA ONLY); AlR/miSHS7.00 Ilnciudes Puerto RiqtVHawail); 
D^Rfffi^ 11 2.00 n.US %2.SQ per item {must be received by 1 2 NOON) 

PRKH«TY MAH; USA44.00 {includes APO/FPO); CW^AOA/h^XK10'S6,00', OTHER F0MIGfrS4.00 bandHng 
PLUS Actual Shipping {ntirttnum S12,00) 

IETIMIPOUCV 

We have 3 Mberat return poScy In batter service your rwsds, Soriwaro piFEB^ IS a proWwn, Out as If^ 

policy is not iwsad. we ^It conftwo to honor It. H within 1 5 days frwn the flmfl you recelvo an Hem, you 
m not sati5liBd with it lor any reason, you may retuEfi it to us for eithBr a mlund, excrwiH £P mm credit, 
RERJNDS ARE SiaB^ TO A 1 0% nfeTOrWHG FEE I^R ITEM RETURNH) {$5.00 Mff^WH PER I^M). 

A KFECnVE ITEM will be replaced with the same Iten {NO CHARGE... of courw), EXCHAHGEE/OPtH 
CREWTS will gladly be issued for ffs FULL PlffiOlASE PRICE OF T>« ffEM. 



Volume 9, Issue 2 



I^blisher 

Antony Jacobson 

Vice-President Operations 
Jeannie Lawrence 

Vice-President Advertising 

Maximillian Jacobson 

. „ Editors 
Malcolm O'Brien 
Nick Sullivan 
Chris Zamara 

Customer Services 
R^anne Turner 

Contributing Writers 

Ian Adam 
Mane Brengle 
Paul Bosacki 

BiUBris^. 

Anthony Bryant 

Joseph Buckley 

Jim Euueri'ield 

Jim Frost 

Miklos Garamszeghy 

Larry Gaynier 

Wayne Gurley 

. Patrick Hawley 

Todd Heimarck 

Adam Herst 

Revert Huehn 

Garry Kiziak 

Bob Kodadek 

Francis Kostella 

Chris Miller 

Mike Mohilo 

Noel Nyman 

Adrian Pepper 

Steve F*unter 

Joel Rubin 

David Sanner 

Stephen Shervais 

Audrys N^lkas 

Cover Artist 
Wayne Schmidt 



Transactor 

The Magazine for Commodore Program mers 



Fast Graphics Primitives 16 

by Robert Huehn 

When performance is the uilimaie consideration, these are the routines to use. 



Cycle Counting 20 

by David Sanner 

Just haw fast is your machine code? Cycle counting explained, with a program that does il for you. 

RS-232 Hardcopy 33 

by Joseph Buckley 

Interfacing an RS-232 printer to your 64 isn't hard - but there are a few tricks. 



Star Cart 

by Stephen Shervais Jr. 

An aid for astronomy buffs - an easy way to Ond the relative positions of stars. 



Disabling '10' on the 1581 

by Miklos Garamszeghy 

A fw forihe 1581 to make it retain its subdirectories with application software. 

C-128+ CP/M Memory Maps 

by Miklos Garamszeghy 

Invaluable resource material for the CP/M programmer. 

WHEREIS 

by Adam Herst 

A useful CP/M utility to find a file - anywhere, 

I Do Windows (on the C128) 

by Jim Butlerfield 

Jim offers a prime example of easy text placement in a C 1 28 window. 

C and Assembly; Clarifying the Link 

by Larry Gaynier 

Larry clears up an error from a previous article, and adds a few new observations. 

Care and Feeding of the C256 

by Paul Bosacki 

How about a 256K 64 with four separate environments and a GEOS RAM disk... for starters? 
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U.S. tnCiiniida Mail Order 
Growing Print 
Quick Block Display 
Who Needs Fasl-Loaders? 



Now You See Me, Now You Don^t 
The RND Function 
SX-64ROMBug 
Window Wiper 128 



The ML Column 
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by Todd Hcimarck 

Slni^gling with ML malh? To kick off hi^ new column, Todd shows you how to divide -and conquer! 



The Edge Connection 
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by Joel Rubin 

The first of another regular column. This issue, Joel compares Ibree assemblers for the C-128: Buddy, 
LADS, and Merlin. 
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Turbo Masler CPU Acceleraior 

QDisk Non-Volaiik Ci28 CP/M RAM disk 

SFX Sound Expander 



Dialogue 128 

B-128 Hardware Enhancements 
Zooml for the C64 



Reviews 
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A Tale of Two Cartridges 

by Noel Nyman 

An in-depth comparison o( two of the honest multifunction cartridges for the 64: The Final Cartridge, 
and Action Replay Mk. IV. 



Brainstorm, BrainPower, Story Writer 

by Marte Brengle 

A low-priced integrated thought processor/word processor, and a unique story-writing aid. 
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Aboul the cover: The artwork is unmistakably that of Wayne Schmidt^ long known in 
the Commodore graphics arena for his intricately detailed work. Wayne lives in New 
York, where he does commercial graphics and other art using his Commodore 64. His 
work has appeared in several magazines, Wayne uses a variety of software in produc- 
ing his images, including some he's written himself. The cover picture is in multi- 
colour, not hi-res mode. 
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Using "VERIFIZER" 



Transactor' s foolproof program entry method 



Verirzer should he run before typing in any long program 
from the pages of Transactor, it wiU let you check your work 
line by line as you enter the program and catch frustrating typ- 
ing errors. The VERIFIZER concept works by displaying a iwo- 
letter code for each program line; you can then check this code 
against the corresponding one in the printed program listing. 

There are three versions of VERIFIZER here: one each for the 
PET/CBM. VIC/C64, and C128 computers. Enter the applica- 
ble program and RUN it. If you get a data or checksum error, 
re-check the program and keep trying until all goes well. You 
should SAVE the program since you'll want lo use it every 
time you enter a program from Transactor. Once you've RUN 
the loader, remember to enter NEW to purge BASIC text 
space. Then turn VERIFJZER on with: 

SYS 634 to enable the PET/CBM version (off: SYS 637) 
SYS 828 10 enable Che C64/VrC version (off: SYS 831) 
SYS 3072.1 to enable the €128 version (off: SYS 3072,0) 

Once VERIFIZER is on, every lime you press RETURN on a 
program line a two-letter report code will appear on the top 
left of the screen in reverse field. Note that these tetters are in 
uppercase and will appear as graphics characters unless you 
are in upper/lowercase mode (press shift/Commodore on 
C64/V1C). 

Note: if a report code is missing (or "--") it means we've 
edited thai line ai the last minute, changing ihe repor! code. 
However, this will only happen occasionally and usually only 
on REM statements. 

With VERTHZER on. just enter the program from the magazine 
normally, checking each report code after you press RETURN 
on a line. If the code doesn't match up with the leners primed 
in the box beside the hsling, you can re-check and correct the 
line, then try again. If you wish, you can LIST a range of lines, 
then type RETURN over each in succession while checking 
the report codes as they appear. Once the program has been 
properly entered, be sure lo turn verif[/.er off with the SYS 
indicated above before you do anything else. 

VERIFIZER will caich transposition errors like POKE 52381,0 
instead of POKE 53281,0. However, vkrifizer uses a 



"weighted checksum technique'^ that can be fooled if you try 
hard enough: transposing two sets of four characters will pro- 
duce ihe same report code, but this will rarely happen, (VERI- 
EIZER could have been designed to be more complex, but the 
report codes would need to be longer, and using it would be 
more trouble than checking the program manually). VER[FIZER 
ignores spaces so you may add or omit spaces from Ihe listed 
program at will (providing you don't split up keywords!) Stan- 
dard keyword abbreviations (like nE instead of next) will not 
affect the verif[/hr report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette 
buffer, so if you're using a datasette be aware that tape opera- 
tions can be dangerous to its health. As far as compatibility 
with other utilities goes, verlfizer shouldn't cause any prob- 
lems since it works through the BASIC wann-start hnk and 
jumps to the original destination of the link after it's finished. 
When disabled, it restores the link to its original contents. 

PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 

CI 10 rem* data loaderfor "verifizer 4.0" * 

LI 20 cs=0 

HC 30 for i=634 to 754: read a: poke i,a 

DH 40 cs=cs+a: next i 

GK 50: 

OG 60 ifcs<>l5580 then print"***** data error *****": end 

JO 70remsys634 

AF 80 end 

IN 100 : 

ON 1000 data 76, 138, 2, 120, 173. 163, 2, 133, 144 

IB 1010datal73. 164, 2,133,145, U. 96,120,165 

CK I020data 145,201, 2,240, 16,141,164, 2,165 

EB I030data 144, 141, 163, 2, 169, 165, 133, 144, 169 

HE I040data 2,133,145, 88, 96, 85,228,165,217 

01 1050data201, 13.208, 62,165,167,208, 58,173 

JB I060data254, 1, 133,251, 162, 0, 134,253,189 

PA 1070 data 0, 2,168,201, 32,240. 15,230,253 

HE 1080 data 165, 253, 41, 3,133,254, 32,236, 2 

EL 1090 data 198. 254, 16. 249, 232, 152, 208, 229, 165 

LA 1100data251, 41, 15, 24,105,193,141, 0,12^ 

KI 1110 data 165,251, 74, 74, 74, 74, 24,105,193 

EB I120datai41, 1,128,108,163, 2,152, 24,101 

DM tl30data251, 133,251, 96 
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VIC/C64 VERIFIZER 

KE 10 rem* data loader for "verifizer" * 

JF 15 rem vic/64 version 

LI 20 cs=0 

BE 30fori=828to958:reada:pokei,a 

DH 40 cs=cs+a;next i 

GK 50: 

FH 60 if CS014755 then print"***** data error *****": end 

KP 70remsys828 

AF 80 end 

IN 100: 

EC 1000 data 76. 74, 

EP 1010 data 252, 141, 

OC 1020 data 3.240, 

MN 1030 data 251. 169, 



3, 165,251, 141, 2, 
3, 3, 96. 173, 3, 
17,133,252,173, 2. 
99.141, 2, 3,169, 
MG 1040 data 3, 3, 96, 173, 254, 1, 133, 
DM 1050 data 0, 160, 0, 189, 0, 2, 240, 
CA ! 060 data 32.240. 15,133, 
NG 1070 data 133, 90. 32, 183. 
OK 1080 dafa 232. 208. 229, 56, 
AN 1090 dala 32.210.255. 169, 
GH llOOdata 89, 41, 15, 24,105. 
JC lUOdata 165, 89, 74, 74, 74, 
EP 1120 data 32,210,255,169,146, 
MH 1130data 32.240,255,108,251, 
BH 1140 dala 101. 89.133. 89, 96 



3. 165 

3,201 
3.133 

3, 141 
89, 162 
22, 201 
41. 3 
16,249 



91,200, 152, 

3. 19K. 90, 

32,240.255.169. 19 

18, 32,210,255, 165 

97. 32,210,255 

74. 24. 105. 97 

32,210.255, 24 

0,165, 91. 24 



*NEW* C128 VERIFIZER (40 or 80 column mode) 

KL 100remsavc"0;ci28vfz.ldr".8 

OI 1 10 rem c- 128 verifizer 

MO 120 rem bugs fixed: 1) works in 80 column mode. 

DC 130 rem 2) sys 3072,0 now works. 

KK 140 rem 

GH 150rem by joel m. rubin 

HG 160 rem * data loader for "verifizer c 128" 

IF 1 70 rem * commodore c 1 28 version 

DG 180 rem * works in 40 or 80 column mode!!! 

EB 190ch^0 

GC 200 for j=3072 to 3220: read x: poke j,x: ch=ch+x: next 

NK 210 if ch<>l8602 then print "checksum error": slop 

BL 220 print "sys 3072,1 to enable 

DP 230 print "sys 3072,0 to disable 

AP 240 end 

BA 250 data 170, 208. 11.165.253.141, 2, 3 

MM 260 dala 165, 254. 141, 3, 3, 96, 173, 3 

AA 270 data 3,201, 12,240, 17,133,254,173 

FM 280 data 2, 3,133.253.169.39.141, 2 

IF 290data 3.169. 12,141, 3. 3. 96.169 

FA 300data 0.141. 0,255.165. 22.133.250 

LC 310datal62. 0.160, 0,189, 0, 2.201 

AJ 320data 48.144. 7.201. 58,176. 3,232 

EC 330 data 208, 242. 189. 0, 2,240. 22,201 

PI 340 data 32,240. 15,133,252,200.152, 41 

FF 350 data 3,133,251, 32,141, 12,198,251 

DE 360 data 16.249.232.208.229. 56, 32.240 



CB 370 data 255, 169. 19, 32,210.255,169, 18 

OK 380 data 32,210.255,165.250, 41, 15. 24 

ON 390 data 105, 193, 32.210,255.165,250, 74 
OI 400 data 74, 74, 74, 24, 105, 193, 32, 210 

OD 410 data 255, 169, 146, 32,210.255, 24, 32 

PA 420 data 240, 255, 108, 253, 0, 165, 252, 24 
BO 430 data 101,250, 133,250, 96 



The Standard Transactor 
Program Generator 

If you type in programs from the magazine, you might be able 
to save yourself some work with the program listed on this 
page. Since many programs are printed in the form of a BA- 
SIC "program generator" which creates a machine language 
(or BASIC) program on disk, we have created a "standard 
generator" program that contains code common to all program 
generators. Just type this in once, and save all that typing for 
every other program generator you enter! 

Once the program is typed in (check the Verifizer codes as 
usual when entering it), save it on a disk for future use. When- 
ever you type in a program generator, the listing will refer to 
the standard generator. Load the standard generator //■/■.!!, then 
type the lines from the listing as shown. The resulting program 
will include the generator code and be ready to run. 

Wheti you run the new generator. It will create a program on 
disk (the one described in the related ariicle). The generator 
program is jusi an easy way for you to put a machine language 
program on disk, using the standard BASIC editor at your dis- 
posal. After the file has been created, the generator is no 
longer needed. The standard generator, however, should be 
kept handy for future program generators. 

The standard generator listed here will appear in every issue 
from now on (when necessary) as a standard Transactor utility 
like Verifizer. 



rem transactor standard program generator 

n$-"filename": rem name of program 

nd=000: sa=000OO: ch=00000 

fori-1 to nd: read x 

ch=ch-x: next 

if ch then print "data error": stop 

print "data ok, now creating file." 

restore 

open 1.8,l."0:"+n$ 

hi=:int(sa/256): lo=sa-256*hi 

prinl#l,chr$(lo)chr$(hi); 

fori-1 to nd: read x 

print#I,chr$(x);: next 

close 1 

print"prg file '":n$:"' created..." 

print"this generator no longer needed." 



MG 100 


EE 


HO 


LK 


120 


KG 


L30 


EC 
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DE 


160 
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Light and the End of the Tunnel 



We have good news and good news- And good news. lt*s great 
Xo be able to say that. 

First of alK Transacior's '^dark night of the soul" has ended. 
Our forte has always been creating magazines of unsurpassed 
technical information for users of Commodore computers. We 
intend to continue in that tradition. 

Now. however, the matters of printing, distribution and adver- 
tising are being carried our by Croftward Publishing Inc., 
which is owned by a large U.K. -based publishing company 
with resources in excess of those that Transactor could pro- 
vide. (Croftward publishes Commodore Computing Interna- 
tional and Amiga User International magazines in the U,K., 
among others 

This happy arrangement means that we need only concern our- 
selves with editorial content on our side of things and Croft- 
ward will ensure that those materials are printed and distribut- 
ed to reach you on a timely basis. 

Our other good news concerns magazine content. We have two 
new columnists writing for Transactor. "The Edge Connec- 
tion*' is where you'll find the writings of Joel Rubin, who au- 
thored our CI 28 80-column Verifizer. Joel is a former Com- 
puServe sysop and has wide experience in many comers of the 
computing universe. Joel examines Commodore computing 
from a unique viewpoint and makes for very interesting read- 
ing, as you'll see. In this issue. JoeKs first column compares 
three CI 28 assemblers and discusses a number of issues per- 
taining to them. 

Finally, by popular demand, the feature you've all been so ea- 
ger to see: The ML Column, Yes, it's here - and written by 
Todd Heimarck no less. Todd spent some years at computet 
and co-authored Machine Language Routines for the Com- 
modore 64/128 (which was so favourably reviewed by Mike 
Garamszeghy in Volume 8, Issue 4), Recognize that this is not 



a tutorial for beginners. This column is directed at the interme- 
diate to advanced programmer. The first column takes a look 
at various algorithms for doing binary division and bench- 
marks them. Dig in. 

While we're on the subject of advanced programming, two of 
the articles in this issue deliver the tools and techniques for 
doing fast hi-res graphics. In fact, both articles are looking for 
the fastest way to plot a pixel on a hi-res screen (though both 
address other issues as well). The authors seem to have come 
pretty close to the theoretical maximum speed for this often- 
vital task, but if you can shave even more cycles oft* their rou- 
tines, we'd love to hear from you and so would they. If you're 
"in search of the blazing bit", have a look at Cycle Counting 
by David Sanner and fast Graphics Primitives by Robert 
Heuhn. And make sure your monitor is well ventilated. 

More good news for GEOS users: This issue we're '^pushing 
the limits'" with the C256. Paul Bosacki shows you in words 
and pictures how to expand your C64 to 256K internally. The 
software patch to make geos recognize the internal ram drive 
is printed in geoProgrammer format. From the feedback Pve 
received so far* it seems that there are a number of GEOS pro- 
grammers out there who want the listings in geoProgrammer 
format. If you're new to programming the GEOS environment 
and are using one of the other assemblers, don't fret. Next is- 
sue we'll print a cross-reference table of GEOS labels that will 
make it easier for people on both sides of the fence to talk to 
each other 

That's a lot of good news for one issue. We're very happy to 
have Todd and Joel writing for us and we're sure you'll be 
pleased as well. We*re also very happy with our new arrange- 
ment with Croftward and look forward to returning to active 
duty on the forefront of Commodore computing. 



Malcolm D. O'Brien 



□ 
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Got an interesting programming tip. short routine, or an unknown bit of 
Commodore trivia? Send it in - if -we use it in the bits column, we' U credit you 

in the column and send you a free one-year's subscription to Transactor 



U.S. to Canuda Mail Order 

Steve Campbell, Mississauga, Ontario 

If you order from the States and the order is shipped by United 
Parcel Service (UPS), there will most likely be a $12.50 fee 
charged to you. as well as any customs duties. 

I was never advised of this unfortunate situation until I ordered 
some CP/M software for my CI28. I got a card in the mail 
from UPS at the border saying to call them (toll-free) because 
there was a hold-up at customs. 

When 1 called, I was told that they always check with the re- 
ceiver of the parcel before it goes through customs if the 
sender did not pay for the duties in advance; my dealer hadn^t 
paid. T went ahead with the order because it was software 1 
needed, and paid the $12.50 plus $2.41 duty (on four disks and 
six books). 

Moral; Ask for the parcel to be sent by United States Postal 
Service. Unless you need it immediately, you're better off us- 
ing Ihe USPS. All things considered, UPS probably takes just 
as long anyway. 

64 Bits 

Now You See Me, Now You Don't 

Sudharshan Sathiyamoorthy, Scarborough, Ontario 

Looking for a new effect to add to your programs? Type in the 
following, save it, and then run it. 

ON 100 rem fader - by sudharshan sathiyamoorthy 

PB 110 for i=fl9152 to 49193: read a^ poke i,a: next 

AE 120 data 165, 78, 133, 80, 165, 79, 133 

OC 130 data 81- 166, 83, 164, 82, 202, 165 

OO 140 data 87, 136, 145, 80, 192, 0, 208 

OC 150 data 249, 24. 169, 40, 101, 80, 133 

LM 160 data 80, 169, 0, 101, 81, 133, 81 

PA 170 data 164, 82, 224, 0, 208, 227, 96 

Now type in the following example program, save it, and then 
run il. 



53281,0 



HA 100 rem fader example 

EH 110 r«ii by sudharshan sathiyamoorthy 

GJ 120 ran 

JB 130 rem make sure fader is installed 

KK 140 rem 

IH 150 poke 82,20:poke 83,l0:poke 53280, O:pokj 

MF 160 for i=l to 10: read c£il : next i 

FG 170 data 0,11,12,15,1,1,15,12,11,0 

PI 180 poke 78,0; poke 79,216 

OH 190 for i=l to 10: poke a7,c(i) : sys 49152 

; for j=l to 40: next j,i 

LG 200 poke 78,164: poke 79,217 

NP 210 for i=l to 10: poke 87,c(i): sys 49152 

: for j=l to 40: next j,i; goto ISO 



Make sure the screen is fairly full to see the effect properly. 
Pretty neat, isn't it? The fading is achieved by cycHng the 
colour of a section of the screen through different shades of 
white, black and grey. 

To use this effect in your program, append the first listing to 
your BASIC code. The routine is relocatable - al present if re- 
sides at address 49152, The routine also uses addresses 78 to 
83 and address 87 for storage purposes. 

The machine language program allows you to change the 
colour of a rectangular area on the screen. The top left comer 
of the rectangle is stored in address 78 and 79 (in low, high 
format) - the value used here is a colour memory address start- 
ing at 55296- The number of character rows and columns in 
the box is stored in addresses 83 and 82. respectively. Finally, 
the colour is put in location 87, 

The machine language routine simply changes the colour of a 
section of the screen; the actual colours that you choose deter- 
mines the fading effect. The example basic program above 
fades from white to black and from black to while. To fade 
from yellow to black and from black to yellow, modify the 
second program as follows: 

160 dim c(12) : for i^l to 12: read c{i) : next i 
170 data 0,9, 2, a, 10,7, 7,10, a, 2, 9,0 

in tines 190 and 210, change ^fori-1 to lO^toTori^l to 12'. 
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Growing Print 

Jeremy Hubble, Bclfon, Texas 

This little subroutine does a lot for its size: it not only centres 
text, but it causes it to "'grow" out from the centre of the 
screen* and can also change the text colour. To use it» simply 
set A$ to the string you want to print (it should be less that 39 
characters), set C to the colour you want to print in (0 through 
15), and GOSUB 2000. You can change the speed by allering 
the value for D! in line 2000. Lines 10 and 20 are just to 
demonstrate the subroutine^ and can be deleted when putting 
the subroutine your own programs. 

KH 10 poke 53281, O:a$="growing print": c=l:gosub 2000 
CC 20 print:aS="by Jeremy bubble" : c=2 rgosub 2000:©nd 
DJ 2000 dl=10: poke 646, c: a-len(aS) 

: if a/2<>int (a/2) then a$=a$+" ": goto 2000 
DA 2010 for b=l to a/2 

iprint tab (21-b)l©ft$(a$,b) rights (aS,b) "{up)" 
JM 2020 for d=l to dl: next: next: print: return 

The RND Function 

Evan Williams, Williams Lake, British Columbia 

I have seen, heard, and read a lot of misconceptions about how 
the random number generator in Commodore BASIC works or 
doesn't work, 1 have not yet seen an accurate description of 
what really happens. First, without getting into what random- 
ness is, I will say that the Commodore BASiC rnd function is 
one of the better pseudo-random number generators available. 
It generates very long initial sequences of numbers with very 
good apparent randomness. No delectable patterns appear at 

binary intervals up lo 2'^16. No significant bias exists such as 
for even over odd numbers. 

The biggest misconception I know of regarding RND is that 
one can '^improve" the randomness by using some number 
other than one as the argument (i.e, x=rnd(ti)). This has abso- 
lutely no effect as when the argument is positive it is a dummy 
and is not used by the rnd function. The next misconception 
is that something is wrong with RND when negative numbers 
are used. Not so! Negative numbers are used to seed the RND 
function and initiate a new sequence. When any negative num- 
ber is used in the RND function (i.e. x-md(-27)), this starts the 
random number generator at a new point. For every negative 
number a different sequence results. For really random output, 
use x=rnd(-ti) at the start of a program. 

Furthermore, and even better, if the same negative number is 
used, the same sequence results. This allows you to control the 
output of the RND function, which can be useful in games (for 
example, to give each player the same random maze to negoti- 
ate). 

Speaking of games, I should mention that a lot of software for 
the C64 uses the noise generator in the sid chip to create 
pseudo-random numbers. This is a hardware version that 
works using a shift register with gated feedback of the binary 



output. I haven't examined the characteristics of this part of 
the chip so I can't comment on it except to say that the more 
the white noise output sounds like white noise (a hissing 
sound), the better it probably is. 1 have heard some artifacts in 
the white noise output which sound sort of metallic and clinky 
so it probably is suspect. As a last note, when zero is used as 
an argument for RND the output seems okay but has gaps in the 
numbers it hits. These gaps are regular and periodic so zero 
shouldn't be used. 

Quick Block Display 

Brian Spencer, Barrie, Ontario 

Have you ever wanted to quickly display a block from a disk 
onto the screen in its raw form? Run the following program 
and you'll see just how simple and short a task that can be. 

JC 10 for 1=828 to B44:read d:po1ce i,d:next i 

NP 20 data 162,2,32,198,255,162,0,32,207 

HC 30 data 255,157,0,4.232,208,247,96 

GG 40 input"{clr}{8 down>track, 3ector";t,s 

CF 50 open 15,8,15: open2, 8 , 2 , ''#" 

CL 60 print#15,"ul 2 0"strS (t) strS (s) 

IE 70 sys 828:poJce 780,2: sys 65475: sys 65511 

Program explanation: 

Line 10 Load in the ML GETBLOck routine 

Lines 20,30 ML data for GETBLOck routine. Notice the and 

4 that denotes the top of screen memory ($0400, 
or 1024 decimal) 
Prompt user for track and sector 
Set up channels (device 8 default) 
Jump to track and sector entered by user 
Call GETBLOck routine, which puts 256 bytes 
from logical file #2 into screen memory: use Ker- 
nal to close logical file #2 and close all files 



Line 40 
Line 50 
Line 60 
Line 70 



The files are opened and closed from BASIC so that you can 
modify the program without altering the machine code. 

SX-64 ROM Bug 

Kevin Hopkins, Montkello, Illinois 

There is a bug in the Kemal ROM for the SX-64. If you use 
SHIFT/RUN-STOP to load and run your Quantum Link terminal 
software or any other programs using RS-232, this bug can 
cause a crash very quickly. 

A comparison of the SX Kemal and the version 3 ROM of the 
C64 (from which it descended) reveals that there are 49 bytes 
differeni in the SX Kemal. The trouble lies with the changes in 
the LOAD/RUN text for the SH[Fr/RUN-STOP key combination. 
Upon call, this text is written into the keyboard buffer. Now, 
most programmers understand that this buifer is only 10 bytes 
long. No problem with the Version 3 text which is only 9 bytes 
long» but the SX text is 15 bytes long, which means that five 
bytcK are going to go where they don't belong. Where they 
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don'l belong in this case is the operating system's pointers to 
start of memory, end of memory, and the flag for the Kemal 
variable for IEEE time-out. This is exceedingly nasty. 

1 beheve the cause of the problem is the overwriting of the 
end-of-memory pointer at S0283/4, Mapping the Commodore 
64 states that the start-of-memory pointer is never used after 
power-up (the value is copied to zero page and that copy is 
used thereafter), and the lime-out byte is for an IEEE interface 
that Commodore was to release. But the end-of-memory point- 
er is used in the allocation of the RS-232 input and output 
buffers, which is done whenever an RS-232 file is opened. 
Writing the ''UN" of the "LOAD-RUN*^ text into that pointer by 
pressing SHIFT/RUN-STOP would have you allocating buflers at 
$4E55 on down. One hesitates to speculate on how many 
things can go awry because of this re-coding error. Depending 
on the size of your program, this could spell instant software 
death. 

The SX bug is cause for concern today because, although that 
machine is no longer made, the SX Kernel is a natural founda- 
tion for anyone creating a customized operating system for the 
C64. The SX code has already isolated the tape routines, 
which a programmer can freely replace with whatever he likes 
before buring a replacement ROM, 

Solutions: If you are buring a new ROM, the bug can be 
crushed by abbreviating the command siring by changing 
*Moad"*",8<cr>run<cr>" to ^iO":*".8<cr>rU<cr>", which re- 
duces the string by three of the five bytes, or by removing the 
'\8'' and changing the defauh device number elsewhere in the 
Kemal. 

C128 Bits 

Who Needs Fast-Loaders? 
John Fehr, Gretna, Manitoba 

The other day, I was fooling around with the 128 and 64 
modes when I noticed that the memory from bank in 128 
mode remains intacc after going into 64 mode. Experimenting, 
1 found that it was possible to ioad a machine language pro- 
gram in 128 mode, go into 64 mode, and execute the program. 
Why go through the hassle? With a 1371 disk drive, loading in 
128 mode is faster than loading in 64 mode with a fast-load 
cartridge! 

To try this, boot the computer in 128 mode and load a basic 
program like this: 

bload"filenaine",d0;u6 

Reset the computer, hold down the Commodore key {to enter 
64 mode), and the program will still be in memory. To "un- 
new'' the program so that you can list and run it, type: 

poke 2050,10: ays 42291: poke 45,peek(34) 
; poke 46,peek(35): clr 



Defining Keys in CP/M 
Douglas Taylor, Columbus, Ohio 

The KEYHG command that comes on the C128 CP/M boot disk 
allows you to define up to 32 different function keys on the 
C128, each with its own string, A 'string' in this case impUes 
two or more characters, such as 'dir Ireturn]' (assigned to 
F3) or ^help * (assigned to F27). Here is a shortcut thai lets you 
redefine keys in CP/M mode without using KEYFIG, even from 
within many application programs! 

Suppose you want to redefine the Fl key, which defaults to the 
string *'VV\ To do this, hold down the CTRL and right-SHlFT 
keys and press the grey cursor-right key. A small white box 
will appear at the bottom of the screen. Next, press the func- 
tion key you want to redefme, in this case Fi. The white box 
will now read >F1< in reverse video with the cursor over the 
F. Now type in something like, "This is a function key!". If 
you make a mistake you can cursor back with CTRL/right- 
shift/cursor-left, and forward with CTRL/right-shift/cursor- 
right. You can also insert with CTRL/right-shift/+ and delete 
with CTRL/right- shift/- (the + and - keys on the main keyboard, 
not on the keypad). When you have completed typing the defi- 
nition, press CTRL/right-shift/RETURN. Commodore chose the 
CTRL/right-shift combination so that you can define any key as 
a function key and include cursor movements in your strings, 
as well as inserts, deletes, and carriage returns. Now press Fl. 
You will see the words 'This is a sunction key!'' printed on 
the screen. You can even do this from inside your favourite 
word processor for instant key macros. 

That's all there is to it. Remember, this method only works for 
redefining keys which are assigned strings of two characters or 
more, so you couldn't use it to redefine, say, the '*a*' key. But 
once you have used keyfig to set up your keyboard you can 
have up to 32 easily redefinable function keys. I have not yet 
found a program in which 1 could not use this shortcut method, 
but with IMRCOM in terminal mode, the keys do not play back 
correctly. 

By the way, all this informafion can be found in the CP/M sec- 
tion of the CI 28 Programmers Reference Guide. 

Window Wiper 

Chris George, Islington, Ontario 

If you are tired of using chrS(147) to clear your screen, you 
can easily liven up your programs with a more creative 
^'screen wipe'" by using the ''clear" option of the BASIC 7.0 
window command. Try the following one-liner: 

10 rem wipe out cl28 (40/90) 

20 w=rwindow(2)/2:r=3.3/tl-{w=20)) :for i=0 to 12 
: window w-r*i, 12-i, w+r*i. 12+i, 1 : next 

This program wipes the screen from the inside to the outside 
in either 40 or 80 column mode. Experimenting with this tech- 
nique can produce some interesting results. □ 
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The ML Column 



What do you do, subtract a lot? 



by Todd Heiiiiarck 

Copyrighl © 198H Todd Heimarck 

Welcome lo the ml Column. I'm sure the Transactor editors 
will correct me if Vm wrongs bul I believe an unwritten rule 
states that *'Brand new columnists are allowed to introduce 
themselves and their column." Another unwritten rule is this: 
**You can always quote an unwritten rule. How will the read- 
ers know if it's correct or not?" Another unwritten rule is this: 
"You can never quote an unwritten rule. As soon as you quote 
it» you've written it down, which negates its status as unwrit- 
ten. Therefore, you're a liar/' 

Sounds like an old Star Trek episode where Kirk tells a com- 
puter that it made a mistake. By not catching the mistake, it 
made another mistake. By not catching that mistake, it made 
another. And so on. Computers are gullible. If you type '*EV- 
ERYTHING 1 SAY IS A LIE" it wili confuse a 64 (or even a 128). 
The result is ?SYNTAX error, which is ridiculous when you 
consider that the syntax of the sentence you typed is perfect, 
whether or not you include the quotation marks. 

But iet*s return to the introduction. I bought my first computer, 
a vic-20 with an 8K expander and a Datassette, back in 1981 
or 1982. After a year or two, 1 moved up to a 64. Later I 
bought a 1541 disk drive. When the 128 first appeared, i 
bought oEie, along with a 1571 drive and a 512K memory ex- 
pander. I also own an Atari 1040ST, but we won't say anything 
more about that in these pages. 

Tve programmed in 6502 assembly language (also called 
"machine language") since 1983, the same year I started 
working at COMPUTE! Publications, There I wrote articles, 
wrote programs, and edited articles. If you read the Gazette, 
you might have seen the Horizons column. Charies Brannon 
(author of SpeedScript and other goodies) founded the Hori- 
zons column. I wrote it for a couple of years. It's now in the 
capable hands of Rhett Anderson. Al various times, I also 
worked on Biii^ Swatter, Hints & Tips, and Gazette Feedback. 

I recently moved from North Carolina to Washington state af- 
ter accepting a job at Microsoft Corporation, where 1 write 
manuals describing their programming languages. 

This column will focus on 6502 assembly language algorithms 
for the 64 and 128, with an emphasis on intermediate to ad- 



vanced programming. Although I have several ideas for 
columns (searching, sorting, crunching, file I/O, sprites, inter- 
rupts, graphics), Td like to hear from Transactor readers. If 
you want to suggest a topic or respond to a column, write to 
me c/o Transactor at the address in the front of the magazine. 
Better yet, send email on CompuServe {ID 76703,3051). You 
could also drop into my Thursday night conference in the 
CompuServe cbmart area. It happens every Thursday night 
from 10-12 PM Eastern time. For those of us on the left coast, 
that's 7-9 Pacific time. If you Ye in Iowa, Hawaii, or New- 
foundland, youMl have to calculate the appropriate time for 
yourself. Log onto CompuServe, GO CBMART at a ! prompt, 
join the forum if you aren't a member, and type CO to enter the 
conferencing area. Incidentally, you can find the example pro- 
grams from this column on the Transactor Disk or in the 
Transactor^ own CBMPRG forum on CompuServe. 

How to divide 

Enough of the introductory stuff. Let*s talk about machine lan- 
guage. 

The other day 1 mentioned (in passing) to an mM assembly 
language programmer that the 6502 didn't have a divide in- 
struction and that you had to do it in software. He stopped 
dead in his tracks, thought deep thoughts for a minute or two, 
and said, "No divide instruction? What, do you just subtract a 
lot?" 

WelK yes and no. 

A little later, someone left a message in the CBMPRG area of 
CompuServe asking how to divide in assembly language. 

How do you divide? There are four (or five) answers to the 
question. But first a few remarks. 

Testing the alternatives 

Given four (or five) answers, you might want to lest them out. 
Which one is fastest or most compact or most elegant? Let's 
invent a benchmark situation. We want to divide one number 
by another. Call them Nl and N2. We don't want to destroy 
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the values in memory, so the first thing to do is copy Nl to 
NUM and N2 (o DEN (I picked those names because in a frac- 
tion the number on top is the NUMerator and the number below 
is the DENominator). The second thing to do is test DEN for a 
value of zero (because you can't divide by zero). If something 
(such as division by zero) causes an error, the routine should 
squawk. The carry flag isn't affected by the RTS instruction, so 
well arbitrarily set the carry if an error occurs and clear the 
carry to indicate success. 

We'll also arbitrarily decide that NUM and DEN are 16-bit val- 
ues and that the result will be stored in another 16-bit variable 
called RES. The remainder will end up in REM. Two more obvi- 
ous choices for label names. (If your variables have other 
sizes, you can easily modify the example programs to whatev- 
er size you need. The variable RES should be the same size as 
NUM and REM should be the same size as DEN.) 

Since we can*t easily lime a single division routine, we'll 
call the routine 32,768 times - just for the test. We can use the 
jiffy clock for the benchmark timing. 

The benchmark program ("OOtest") is written in BASIC 7.0 for 
the 128 (program 0). It inputs the two numbers, zeroes out the 
clock, SYSes to the routine, and prints the jiffy clock value. 
The routines assemble to $0B00 on the 128, If you own a 64, 
youll have to move them somewhere suitable ($C000, for ex- 
ample) and modify the BASIC program by removing the FAST 
statement in hne 20. 

Just to be fair, we should write a program (*^01null") that does 
nothing but clear the carry (CLC) and return from the subrou- 
tine (RTS). The clock will report the overhead required for do- 
ing things like checking for a division by zero error. 

All of the example programs contain the 32K loop and the 
error-checking for the presence of zero in DEN. If you're work- 
ing from the listings, type in Program ^^Olnull" and for the 
others, start at line 570 main = * (in the *^Buddy" assembler 
for the 128, the character "+" marks the current program 
counter: the same is true for "pal" and *'LADS" and some oth- 
er assemblers). Lines 580+ are different in the example pro- 
grams. 

Subtract a lot 

Program "02subt" subtracts a lot. The algorithm breaks down 
to a few simple steps: 

1. Begin loop. 

2. If NUM < DEN, exit loop. 

3. Else NUM = NUM - DEN. 

4. Increment counter and repeat the loop. 

5. RESuh = counter. REMainder = value left in NUM. 

When we check the benchmarks, the subtraction alogrithm 
works reasonably well when the result is small. To evaluate 
6/2, the program subtracts two a total of three limes. However, 



the larger the result, the longer the delay. If you divide 
60.000/2. the algorithm must subtract 30,000 times. The an- 
swer is accurate, but you have to wait quite a while for it (es- 
pecially if the program repeats the calculation 32K times). 

It's also not very satisfying. Subtracting one number from an- 
other doesn^t seem very elegant. There must be a better way. 

Shift to the right 

Program "03shif" provides a second solution. It's faster than 
blazes, but (unfortunately) it only works when the divisor den 
is an even multiple of two. 

The theory is relatively easy to understand. Suppose your 
computer worked in decimal (which it doesn't). Suppose the 
number 130.000 was stored in memory as the numerals 
'M 30000" (also a false statements but we can pretend). Sup- 
pose once more that you could tell the numerals to move once 
to the right (shifting a zero into the high position). Shift 
130000 to the right and you get 013000. Shift even more and 
you get 001300, 000130, 000013, 000001, 000000. and so on. 

As you can see, in base ten (decimal), shifting to the right is 
the same as dividing by ten. But computers store values in bi- 
nary (base two). Shifting a byte (or series of bytes) right is the 
same as dividing by two: 



Binary 

0000 0010 1100 0000 

0000 0001 Olio 0000 

0000 0000 1011 0000 



Decimal 
704 

352 

176 



When the Ts and 0"s shift to the right, they fall off the edge of 
the byte into the carry bit. From there, we can catch the bit 
(shifting right again into a REMainder area). The shift algo- 
rithm for division looks like this: 

1. Set a counter to 16 (the size in bits of DEN). 

2. Shift DEN right one bit (lsr the high byte and ror the inter- 
mediate/low bytes). If the carry is set, skip ahead to step 6. 

3. Shift NUM right one bit (LSR the high byte first, then ROR 
any intermediate or low bytes). 

4. Shift the remaining leftover bit into the high bit of REMain- 
der (using ROR on the high and low bytes). 

5. Decrement the counter and branch to 2 if it's not zero yet. 

6. The shifting loop has ended and if DEN was a multiple of 2, 
no more bits should be turned on. Even multiples of two 
contain only one bit (00000001, 00000010, 00000100, and 
so on). When the single bit rotated out of DEN, it should 
have left behind no other I bits. If any bits are still on, 
there*s an error, so we set the carry. Else, clear the carry and 

RTS. 

As mentioned above, this trick only works when you know in 
advance that you have a divisor that's evenly divisible by two. 
A better routine would be faster than subtracting and handle all 
possible numbers. 
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Calling the ROM routine 

Since basic handles division reasonably well, we could dig 
oul the appropriate memory map ("Mapping the 64'' or 
^'Mapping ihe 128'* or one of the Abacus ROM disassemblies) 
to find oul which ROM routine performs division, and also find 
oul what it rcquiresof our calling program. 

The routine happens to reside at $8B4C on the 128 and $BB12 
on the 64. However, the ForvT routine, as it's called, requires 
two fioaling-point numbers in FACI and FAC2, so we have to do 
some setup worlc. We've got integers. They must be converted 

to floatingpoint. 

Program ''04fioa" starts by loading the high byte of NUM into 
the accumulator (.A) and Ihe low byte into Ihe Y register (.Y). 
Then it calls GIVayf {$AF03 on the 128, $B391 on the 64), 
which transforms the integer into an official floating-point 
variable suitable for use by BASIC ROM routines. The number 
now resides in facl Next, we call movef {$8C3B or SBCOF}, 
which moves a number from FACl to FAC2. The final prepara- 
tory step is to call GIVAYF again, this time to translate den eo 
fioating-poini format. 

The result is a floating-point value in faci. To get that back to 
integer form, jump indirectly through the pointer al ADRAYl 
($117A on the 128, $0003 on the 64). A word of warning 
about location 3 on the 64: No ROM routines ever jump 
through 3, so some machine language programmers consider it 
an available zero-page localion. If you've run other assembly 
language programs before you try this one, you may want to 
turn your 64 off and on, to make sure the pointer value is cor- 
rect. 

One more thing: The instruction jmp($ 11 7A) is how you jump 
indirectly to the two-byte address contained at location $1 17A, 
There's no equivalent jsr instruction, Al this point in the rou- 
tine, there are a couple more things to do; so it's necessary to 
place the indirect jump al the end of the program and then JSR 
to the JMR That way, the RTS at the end of the conversion rou- 
tine returns control to our program rather than ending our pro- 
gram. 

To summarize the routine that calls ROM subroutines: 

1 . LDA with the high byte of num and ldy with the low byte. 

2. JSR GIVAYF 

3. JSR MOVEF 

4. LDA and LDY with the bytes from den. 

5. JSRGiVAYF 

6. JSR FDIVT 

7- JMP (ADRAYl) 



Are there bad things to say? Yes. My own feeling is that the 
BASIC ROM routines are there for the benefit of BASIC program- 
mers. If you want to call basic routines, you might as well 
write the program in BASIC. In a program that needs to do a lot 
of division, there's no real reason to rely on the ROM routines 
if you*re writing in assembly language. 

A second problem is that you get the result, but not the re- 
mainder (although if you wanted to. you could call another se- 
ries of BASIC routines to get the remainder). 

A third problem is that you lose some accuracy when you per- 
form floating-point calculations (try this, for an example: for x 
- 1 to 5 step 0. 1 : print x: next). 

The answer: binary division 

Program "05divi" does it the right way. Before looking at bi- 
nary numbers, let's review what happens in decimal division. 
Say you want to divide 00043299 (which we'll call NUM) by 
00000492 (DEN). We will pretend thai all decimal values are 
eight-digit numerals for this gedanken experiment. 

Shift NUM to the left and the leftmost numeral will fall out. 
We'll put it into REM (the remainder). After one shift, the num- 
bers look like this: 

RES REM NUM DEN 

zzzzzzzz zzzzzzzO 0043299Z 00000492 

The z's represent zeros that are there by default. How many 
times does DEN (492) fit into REM (0)? Zero times. Put that re- 
sult into RES. This process occurs a few more times before 
something interesting finally happens: 

RES REM NUM DEN 

zzOOOOOO Z0004329 9zzzzzzz 00000492 

You may have noticed that after seven attempts, we\e finally 
got a number in REM that's bigger than DEN. At this point, we 
divide DEN into REM. How many times does it fit? Maybe 7, 
maybe 8, maybe 9. In base ten, you have to keep guessing un- 
til you have the right answer, which turns out to be 8. Move 
that number into res, multiply 492 by 8 and subtract from 
REM: 



RES REM 

zODOOOOS 00003939 



NUM 

zzzzzzzz 



DEN 

00000492 



In the final pass, we calculate that dbn fits into REM 8 times 
(again). Shift that into RES. Multiply DEN by 8 and subtract 
from REM. Here's the final answer: 



There are a few good things to say about calling (he ROM divi- 
sion routine. It's fairly short, which can be a factor if you're 
writing long programs. It takes a fairly constant lime (unlike 
Program "02subt," which varies in time according to the size 
of the result). 



RES REM 

00000088 00000003 

The resuh is 88 with a remainder of 3. If you try some base ten 
division problems, you can understand the basic steps. 
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No guess, no mess 

The step where you examine 4329 and ask "How many times 
does 492 divide 4329?" is the step that stops a iot of program- 
mers. It just seems so messy. You can't really figure out the 
answer by looking at the numbers (at least I can't). Most of us 
learn division in elementary school and that rule about guess- 
ing is stuck in the back of our minds. 

If you've done a significant amount of assembly language pro- 
gramming, but you've never written a division routine, you 
might be anticipating a loop that checks a bunch of numbers 
until it gets the right one. You'd be wrong. 

WeVe working in binary now and that simplifies everything. 
Suppose we^re dividing 01 101110 by OOOOOIOK Don^t worry 
about what the decimal equivalents are. think in terms of ones 
and zeros. The divisor 101 obviously won't fit into 0, 01, or 
OIL [n the fourth pass, we get this situation: 

RES REM NUM DEN 

zzzzzOOO zzzzOllO lllOzzzz 00000101 

REM is bigger than DHN, so den must fit into REM at least once. 
We'll guess that 110/101 is 1 or 2 or 3 or something else. But 
this is base two and the only numerals available are and I. 
We're shifting the variables one bit at a time, so the answer 
has to be I (if it fit twice, we would have gotten the answer on 
the previous pass through the loop). There's no guessing at alh 
The answer is either/or. Either den fits into rem or it doesn^t. 
Either the next digit in RES is a 1 or a 0, 

It gets even simpler. In the base ten example, we got the digit 
8 as one of the intermediate results. We had to multiply 8 by 
492 (to get 3936) and subtract 3936 from the number in REM. 

WeVe already decided that the only two digits available in bi- 
nary are and I. We'll have to multiply DEN by (or multiply 
by i) and then subtract that value from REM. Do we need a 
separate subroutine to multiply two numbers? Not really. 

One of the universal rules about multiplying Is "Any number 
times zero is zero." Another is "Any number times one is the 
number." A rule about subtracting is "Any number minus zero 
is the number/' In all number bases, these rules are always 
true. They're not even unwritten. 

That means that if den fits into rem, you shift a 1 into res (no 
guessing) and you subtract (1 ^ DEN), which is the same as 
DEN (no muUiplying). If den doesn't fit, shift a zero into RES 
(still no guessing) and subtract (0 * DEN), which means sub- 
tract 0, which means no math at all (no multiplying or sub- 
tracting). 

If vou CMP, you gel a useful bit 



Recall that we want to test rem and DEN to see if den fits into 
REM. Suppose that we use the two instructions lda rem: CMP 
den. If REM is greater than or equal to DEN» the carry bit is set. 
If REM is smaller, the cany is clear. The carry is either I or 0, 
and that's the next digit we want to shift left into RES. 

In addition, if the carry is 0, weMl leave REM alone. If the carry 
is 1, we need to subtract (rem - den) and store the new value 
in REM. An advocate of structured programming might scream 
at the sight of the following code, but we're going do it any- 
way: 

Ida rem 

cmp den 

bcs subtr 

XX roi res 
rts 

subtr jsr xx 
sec 

Ida rem 

she den 

sta rem 
rts 

If the carry is clear, the digit is zero. The program drops 
through to the code at xx, which rotates the carry left into RES 
and then returns. If the carry is set, the program branches 
ahead to Siihtr, which immediately jumps to the subroutine at 
XX. The carry is still set, so it rotates left into RES. In this case, 
the ReTum from Subroutine (RTS) doesn^t make us exit the 
loop, it sends the program back to subtr. The SEt Carry (SEC) 
instruction is necessary because the carry flag was likely ze- 
roed out by the rol instruction. We subtract DEN from REM 
and exit. 

The general algorithm looks like this: 

1 . Set a counter to 1 6 (the size in bits of NUM) 

2. Begin the loop. 

3. Shift all bits of NUM to the left, starting with the least sig- 
nificant byte. 

4. Shift the leftover bit (in the carry) into REM. 

5. If REM < DEN then shift the carry flag (0) into res, 

6. Else REM >= DEN, so shift the carry flag (I) into RES and 
subtract. REM = REM - DEN. 

7. Decrement the counter. If it's not zero, repeat the loop. 

Which is the fastest? 

The table below lists the times (in jiffies, where a jiffy is 
l/60th second) for five routines running on a Commodore 128 
in FAST (2 MHz) mode, "OlnuU" is the program that doesn*t 
do anything. "02subt" subtracts repeatedly, ^'03shif" shifts 
bytes to the left. "04floa^* calls basic rom routines. "05divi" 
uses the binary division routine. 



There's one more 6502-processor rule that makes life even NuM and DEN are the numerator and denominator. RES and 
simpler for the programmer writing a division routine. REM are the result and remainder. 
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Table 1: Evaluating the vajious algorithms for speed. 



NUH 

I 

100 

6 

51 

60100 

1 

33333 

10000 

60100 

60100 



DEN 

1 

1 

2 

2 

2 

64 

64 

5000 

5000 

30000 



RES REH 01 



02 03 



04 



1 

100 

3 

25 

30050 



520 

2 

12 

2 









1 



1 

53 



100 

100 



116 
115 
115 
115 
115 
115 
115 
115 
115 
115 



216 439 3267 

6115 439 2897 

335 466 3176 

1646 466 3044 

1419968 466 3268 

156 599 3021 

24784 600 3414 

251 — 2853 

723 — 3797 

251 — 3444 



05 

1387 
1463 
1425 
1463 
1653 
1349 
1425 
1233 
1273 
1233 



Ignore column 01. The first program Joesn'l divide at all. Col- 
umn 02 is the subtraction algorithm. The answer to "Do you 
subtract a lot?" is clearly "Not if you can help it." When the 
result is a large number^ subtracting is an unattractive alterna- 
tive (32768 repetitions of 60100 divided by 2 requires \A mil- 
lion jiffies, approximately one hour, or 40 seconds per calcula- 
tion). Column 03 looks good, bul the algorithm only works if 
the divisor is an even multiple of two. Columns 04 and 05 
contain reasonably stable numbers. 



10 370 ; 

CK 360 routine 



EA 
MC 

FC 
KP 
IL 



390 
400 
410 
420 
420 
440 



= * 

Ida n2 
ora fl2+l 
bne in it 

MC 

rts 



chick for divide by lero erroc 



zero out rea and rem 



BK 450 init 


Ida 10 


HE 460 


3ta tea 


KC 470 


at a res+1 


FB 4B0 


ata rem 


lA 490 


at a rem+1 


IL 500 ; copy 


□1 to nuEi and n2 to den 


PE 510 


Idy 13 


JB 520 loop 


Ida nl,y 


AK 530 


ata num^y 


HN 540 


day 


BO 550 


bpl loop 


6K 560 ; 




BH 570 main 


= * 



Olnull: Append to ^'Common code" to create "OlnulV 



BH 


570 main 


= * 


KL 


580 


clc 


ED 


590 


rts 



02Subt: Append to "Common code" to create "02subt" 



OOtest: BASIC 7.0 benchmark program 



10 

20 



rem acEatch"aataat" :daave"OOteat" 
fast 



25 for i = 1 to 10 



30 
40 



readj,k:l=int(j/]i):printl,j-m, 
3h = iiit{j/2561:jl = j-jh*256 



n 

FB 

n 

CH 

EH 

JI 50 kh = int(k/2561 :kl = lc-kh*256 

FO 60 polM2B16;jl;pgke2B17,ih:poke2BlB,kI:poke2819,kh 

BK 70 tiS="0OOOOO" 

FJ eO sys 2030 

FI 90 print ti/'jiffiea" 

CB 100 forj=2a20to2822step2:printpeek(j)+256*peek{j+l),:riext:print 

CH 110 next 

HO 120 data l^l.lGO, 1,6,2,51, 2, 60100,2 

FO 130 data 1,64,33333,64,10000,5000,60100.5000,60100,30000 

Coininan code; All five ML programs begin with this code. 



m 100 

PH 110 

KS 120 

GC 130 

GR 140 

AI 150 

MD 160 

FH 170 

MR ISO 

KH 190 

EA 200 

B6 21D 

Cr 220 
230 



sys 4000 



nl 
n2 
res 
ren 
nun 
dan 
count 1 
count 2 



bank 15 
org SObOO 
mem 

word ; 
word ; 
word ; 



word 
word 
word 
byte 
byte 



numerator paaaed 

danoDunator passed 

rasult 

remainder 

numerator 

denominator 



EG 240 

NF 250 

KH 260 

KC 270 

KF 280 

FF 290 

OG 300 

CC 310 

FO 320 

IC 330 

AI 340 

EN 350 

CM 360 



dolt32k 



iterate 



Ida 10 
St a count 1 
Ida 1128 
sta count 2 
dec count 1 
bne itarate 
dec count 2 
bne iterate 
rts 

jsr routina 
bcc doit32k 
rta 



if routine set the carry, an arror occurred 



BH 570 

MD 5ao 

GF 590 

CD 600 

RA 610 

CO 620 

GS 630 

FL 640 

KK 650 

CL 660 

EB 670 

GF 680 

TC 690 

PF 700 

LC 710 

FE 720 

CA 730 

NC 740 

FD 750 

IC 760 

II 770 

HC 7B0 

PB 790 

OH BOO 

HI 610 

IJ 820 

EH 330 

FO 640 



main 



quit 



Ida den+1 

cap num+1 ; double -conipare high bytes 

bcc subtract: if den < num, continue 

beq lowbyte ; else if equal, check the low byta 



Ida num 

9ta ran 

Ida num+1 
sta rem+l 
clc 
rts 



; else den > num^ so we guit 



lowbyte Ida num 

bcc quit ; if num < den then quit 
; else drop through to subtract 
subtract lec 

Ida num 

sbc den 

sta num 

Ida nunH-1 

sbc den4l 

sta num+1 

inc res 

bne main 

inc r<s+l 

jmp main 



a3shif: Append to "Common code" to create "OSshif" 



Bfl 


570 


main 


= * 


CI 


580 numbits 


= 16 


AC 


590 




Idx 1 numbits 


OB 


600 


mloop 


Isr danf 1 


HA 


610 




ror den 


LJ 


620 




bca clsani^ 


HA 


630 




Isr nuSH-l 


LF 


640 




ror num 


HA 


650 




lor rasttl 


EI 


660 




ror rem 


FF 


670 




dex 


II 


680 




bne mloop 


EN 


690 


cleanup 


Ida den 


CJ 


700 




ora den+1 



number of bits in denominator 
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CK 710 

BF 720 

GH 730 

KF 740 

flD 750 

OG 7ti0 

a: 770 itaok 

Iff 7B0 

HK 790 

DF 800 

BB 810 

FK 820 

OF 830 

HJ 940 

IH B50 

U 560 



b«q Itsok 
SAC 

rts 



if any bits are still set, den ian't a. ntultiple of 2 (error) 



Xsr rem-fl 
10 r rem 

bne itsok 
Idft nun 
3ta res 
Ida nuail 
sta res+1 
clc 
rta 



fix the ienaind«r 



cle&r carry n«anfl success 



04floa; Append to "Common code'' to create "04floQ" 



BH 570 


main 


= • 




FF 580 


fdivt 


= SBbflc ; 


$t4>12 on the 64 


LF 590 


lELOVef 


= $Bc3b ; 


' SbcOf on the 64 


GD 600 


givayf 


= 5af03 ; 


$b391 on the 64 


KE 610 


adrayl 


= $117a 


' 50003 on the 64 


HI 620 




Ida num^l 




BK 630 




Idy num 


■ get the high and low byte 


HP 640 




jar givayf 


; convert to floating-point in facl 


AI 650 




jsr movef 


' move to fac2 


HI 660 




Ida den+X 




MG 670 




Idy den 


: high and low again 


BL 6B0 




jsr givayf 


: convert {facl again) 


GP 690 




jsr fdivt 


: call the rom division routine 


lA 700 




jar convert , 


: converts facl to an integer 


KB 710 




sta res-fl 




AC 720 




sty res 


\ in .a and .y 


AF 730 




clc 




AH 740 




rta 




BI 750 


convert 


jn^} [adrayl) 





OSdivi: Append to "Common code" to create "05divr 



BB 570 

CD 580 

AC 590 

HN 600 

JB 610 

HO 620 

HD 630 

HS 640 

PP 650 

HA 660 

00 670 

BO 6B0 

CJ 690 

HS 700 

HD 710 

OS 720 

BH 730 

FB 740 

DL 750 

HG 760 

00 770 

JC 780 

CO 790 

FI 800 

BB 810 

PH B20 

IF B30 

JH S40 

Jt B50 

KI 860 

U 870 

AF 880 

DI 890 

CR 900 

KB 910 



ruin 
numbita 

mainloop 



nurnber of bits in nuD 



divide 



centre the high bytes 



- • 

= 16 ; 

Idx flnumbita 

jsr divide 

dex 

bne inainloop 

clc 

rts 

aal num 

rol nuDH-l 

rol rem 

rol reof 1 

Ida r«n+l 

d^ den+1 

beq not sure 
; if equal, can't tell which is bigger 

bcB double sub 
; if rem is bigger, subtract den 
answerbit rol res 

rol res+1 

rts 
; get the carry into the result 
not sure Ida ren 

cmp den 

bcc answerbit ; another zero bit? 
doublesub jar answerbit 
; even if carry is set, put it into ret 

MC 

Ida rem 

fibc den 

sta rem 

Ida rem+1 

abc denil 

sta rem+l 
rta 



□ 



Software Inc. 



ii ^ 



I 




^ve both morwy and 
Comput^t's Gararte 
D0C. 196? 



"... mxc9ilant, «fflc^wT( program that can twip you 
downtime." 

15411571_^ 

DiiiVi ALiGriivicrit 

1 541 /1 57 1 Drrve AJignmerl r epona Ihe alignrrwril condilMzm ol the dish df iwe as yo»J perform 
adiuslmenls. On BCreerifwIp IS available while ihepfOQfam IS runnino Includes lealures for 
5peed adjusTmenl Complete inslruclion marual or aligning bolh 1541 and 1571 dnvea. 
Even indudns fnslriiclions on ho* lo load alignmenl orogram wtien nolhing else wiH loadi 
Wofh5on[heC64, 3X64X1 3Bin&lher 54 or 12flmobe, 1541, 1571 in either 15fll or 15?1 
mode' Auiobools to all modes. Second drive luNy suoooded. Program daK. calibratjon dfik 
artd mslruclHjn manual or^y ftOyl ACI 



' . - 



'^'. Super fli Ulilities is a complete ulilittes package ten ll%e 1581 disk drfve and 
81^ Cl28camputer Among the mar*y Super 61 Ulriities features are, 
- • Copy whole di9*<S from 1541 or 1571 tormat lo 1581 partilions. 
-Copy 1541 orl57l lileS 10 1581 disks 

• Bac*iup 1581 diaksor Pies with 1 or 2 158Tb 

• Si^plied on both 3^^" and 5'^-" diskettes so thai it wiil load on eitner the i57i or T581 

dnve. 

• Pertof m many CP/M and MS-OOS utilily funclkjns. 

• Perform numerous DOS lonctlons such as rename a disk, rename a i*e. scratch or 
unscralch files, lock oi untock liles, creale auto-hool and rnuch more' 

SuperSl Utilities jsesanopfionwmdowtoOisplayallchoiceBayaiJablealanygivenfime A 

lull featured djsk utijjiies syat«m foi the 1581 for only AQQ QCt 



RAMDOS is a cwnpteJe RAM based "Disk ' Operalmg Sys- MfllPOf 
tern for the Commoflore 1700 artd 1750 RAM expansion ;^V 
moduleswhtchTurnsaHorpartoftheexpansion memory inTo '" '**''°'''' 
a lightning fast RAM-DISK. RAMDOS behaves similar to a much taalef 1 541 or 
1 571 tkoppydish except Ihatthe data (sneld in exparisKxi RAM and not ondisk. 

Under RAMDOS, a 50K program can loaded in Vi second. Programs and files 
can be transferred to and from dish with a single command. RAMDOS is avail- 
able lor only $39_95i 



AvailciDiH I^ll0ugh your local 
dealer, or contaci us directly 



Ortk^rrFon^ Free Spirit Software, Inc. 
POBo* 12B-58. Nobie Street 
Kutzlown, PA 19530 
1-B0Q-552-6777 

For T»c3iriiLal Assistance CaH (215) 683-5609 



YOU CAN HAVE IT ALL 

THE CONVENIENCE OF A CARTRIDGE! 

THE FLEXIBILITY OF A DISK! 

THE QUICK BROWN BOX stores up to 30 of your favorite 
programs - Basic & M/L, Gaines & Utilities, Word Processors 
& Terminals - READY TO RUN AT THE TOUCH OF A KEY 
- HUNDREDS OF TIMES FASTER THAN DISK - Modify 
Ihc contents instantly. Replace obsolete programs, not your 
cartridge. Use as a permanent RAM DISK, a protected work 
area, an autoboot utility. C-64 or C-128 mode. Loader Utili- 
ties included. Price: 16K $69 32K $99 64K $129 (Plus S3 S/H; 
MA res add 5%) 30 Day Money Back Guarantee. I Year War- 
ranty. Brown Boxes, Inc. 26 Concord Road, Bedford, MA 
01730; (617) 275-0090 




THE QUICK BROWN BOX - BATTERY BACKED RAM 
THE ONLY CARTRIDGE YOU'LL EVER NEED 
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Fast Graphics Primitives 



Assembler routines written for flat-out performance 



by Rabert Huehn 



Any attempt to produce real-time graphics animation on any 
computer will inevitably be limited by its processing speed. 
The C64, with a I Mhz 6502-series microprocessor, imposes 
hard limits on the complexity of graphics that can be accom- 
plished within a reasonable length of time. You need to decide 
which is most important - speed or complexity - because it 
may be impossible to achieve both at once. (For a good exam- 
ple of the tradeoff, consider subLOGiC's flight simulators.) Ob- 

viously, fast graphics routines are necessary for best results. 

This article deals specifically with optimizing hi-res graphics 
for the C64. The discussion and source that follow illustrate 
several general principles which can probably be applied to 
other situations or other machines. 

No BASIC here 

First, let's examine carefully the general scenario where very 
fast graphics routines are required. Such a program will have a 
set of routines to calculate the graphics data, and a set of 
graphics routines that draw the graphics data to the screen. If 
the calculation part of the process consumes the largest portion 
of processor time, then faster graphics primitive routines will 
not serve to any great advantage. This rules out BASIC as the 
your programming language in most cases. In this case, it can 
be assumed that your calculation routines are written in ma- 
chine language, and that most processor time is used simply to 
do the drawing. You need fast graphics primitives. 

Based on the above assumptions, the routines that follow were 
written to provide flat-out performance. They expect that Ba- 
sic ROM is swapped out; this provides space for the bitmap and 
lots of zero-page storage. As they stand now, the routines are 
not really flexible and will require some modification if you 
want to locate the bitmap at another address, or change draw- 
ing modes, or whatever. But this is one key to obtaining good 



performance: by restricting routines to simple goals, they can 
make up for the loss of versatility with increased speed. 

Unrolled loops 

Animation is normally accomplished by quickly displaying 
successive frames on the screen in order to create the illusion 
of motion. This involves drawing the screen, clearing it, re- 
drawing, and so on. Usually a double -buffering system is used 
to reduce flicker, where drawing is done to a second screen 
area in memory and displayed once the frame is complete. 

Consider possible ways to clear the 8000 bytes that the bitmap 
screen consists of. The standard method would involve a nest- 
ed loop with two levels, containing an indirect indexed *STA 
(address),y'. This addressing mode requires six clock cycles; 
add the overhead from the looping instructions, and youMl find 
this method requires an average of eleven cycles to clear each 
byte. That overhead can be cut down by partially unrolling the 
loop: by including more STA instructions inside it, the loop can 
be performed fewer times. 

A loop to fill 8000 bytes containing 32 stas needs to be exe- 
cuted only 250 times. This requires only one index register, 
simplifying control of the loop. Also, indexed absolute ad- 
dressing can be used; using five cycles instead of six for each 
STA. The bmclr routine in the source code works this way, re- 
quiring an average of just 5.2 cycles per byte! A disadvantage 
to unrolled loops is the increase in the size of the code. 

Fast plot 

Common sense tells you that one of the best places for opti- 
mization is within loops. These graphics routines were created 
with that in mind; they will be the innermost level of any 
graphics program, and extra cycles would be costly. The most 
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crucial of all is the plot function, which is central to almost ail It works something like this: 

other routines. 

Draw (xl, yl, x2, y2) 



The plot routine takes 70 cycles to 
execute (including the RTS) 



The plot routine will be called with an x coordinate between 
and 319 and a y coordinate between and 199, with the origin 
at the lop left comer of the screen. These coordinate values are 
passed in zero page and are assumed to be legal values. The 
format of the bitmap requires some calculation to find the ad- 
dress and bit position of the pixel. The Commodore 64 Pro- 
grammer's Reference Guide suggests: 

row = int (y/8) 

char = int (x/8) 

line = y and 7 

bit = 7-(x and 7) 

byte = base + row*320 + char*8 + line 

poke byte, pee k{byte) or 2'^bit 

However, the byte calculation can be reduced to: 

byte = base -i- 40*(y and 248) + (x and 504) + line 

...which works faster in machine language. 

A powerful yet simple technique is to use look-up tables 
instead of a specialized section of code. For example, the bit 
calculation is done by indexing into a table with the lower 
three bits of x, to produce a bit mask. Notice the multiply by 
40 - you don't really want to do multiplication in such a criti- 
cal routine. Again, indexing a table of values is faster. The top 
five bits of y are shifted right twice, to index into a table of 
words pointing to the beginning of each row. To save more 
time, the base address of the screen has already been added in 
to this table. 

There is a subtle trick in the plot source code, used to avoid 
two extra 'AND #248' instructions. Right after each coordinate 
is masked with ^and #7' to produce the lower three bits, an 
EOR with the same coordinate produces the top five bits! 

The plot routine seems to be fully optimized now - at least 
improvements are not obvious. It takes 70 cycles to execute 
(including the RTS.) 

Fast draw 

The speed of a line draw depends on the algorithm used. The 
standard algorithm comes from Principles of Interactive Com- 
puter Graphics by Newman and Sproull; an improvement by 
Mike Higgins (p. 414, August 1981 BYTE) requires only addi- 
tion and subtraction. This information is from Larry Isaacs' 
column in the April 1 984 issue of COMPUTE! (p. 1 28). 



xinc = POS: yinc = POS 
dx = x2 - xl 
ifdx<0 

xinc = NEG: dx = abs(dx) 
dy = y2-yl 
ifdy<0 

yinc = NEG: dx - abs{dy) 
x = xl: y = yl 
Plot (x, y) 
if dx >dy 
r - dx/2 
for c = I to dx 
X = x + xinc 
r = r + dy 
if r >= dx 
y = y + yinc 
r - r - dx 
Plot (x, y) 
next 
else 
r=dy/2 
for c = 1 to dy 

y — y "•" yi"^ 

r= r + dx 
if r >= dy 

X = X + xinc 

r = r - dy 
Plot (x, y) 
next 

If this routine calls the plot function each time through the 
loop, then it will take 70 cycles, plus the time for the rest of 
the loop, for each pixel on the line. But the fast draw routine 
avoids unnecessary calculation by updating the byte address 
and bit location directly. A modified plot is included to set up 
these values and to plot the first pixel. A test of the fast draw, 
drawing a line diagonally across the screen 256 times, took 
seven seconds to execute. That is 12000 pixels per second, or 
around 85 cycles per pixel! Lines which are closer to the hori- 
zontal or vertical axes will be even faster - a horizontal line 
uses 71 cycles per pixel. 

Take the challenge 

Feel free to attempt to improve the performance of these rou- 
tines: should you succeed, Tm sure other readers would like lo 
see your results - so please send a lener decribing any im- 
provements. Fast graphics primitives are the first step to really 
impressive graphics effects. 

Symass-compatihle source code follows on the next page con- 
taining the fast graphics routines and a demo routine to show 
off their speed. Acknowledgement: Thanks to Glen MacKinnon 
for some really great ideas, including the EOR trick. 
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KD 100 


sys700 ;rurL assembler 


EM 


810 


sta $a2ed, X 


HO 


1530 


Ida #1 




EO 110 




EH 


820 


sta $a3e7,x 


AH 


1540 


sbc 


dx 




II 120 


; < < < graphics vl,0 > > > 


LH 


830 . 


sta $a4el,x 


IK 


1550 


sta 


dx 




PO 130 


; copyright 1988 by robert huehn 


FO 


840 sta Sa5db,x 


DA 


1560 


Ida #0 




FK 140 


; high speed graphic routines 


FO 


850 sta Sa6d5,x 


AF 


1570 


sbc 


dx+1 




EG 150 


; jan 198B 


PP 


860 . 


sta $a7cf,x 


II 


1580 


sta 


dx+1 




GB 160 




PP 


870 , 


sta $a3c9,x 


MK 


1590 


drl 


Ida y2 


;dy=y2-yl 


NA 170 


;zpage pseudo registers 


GA 


880 ; 


sta $a9c3,x 


BM 


IGOO 


sec 






KM IBO 


rO =S02 


FD 


890 , 


3ta $aabd,x 


HH 


IGIO 


sbc 


yl 




NN 190 


rl =S04 


FD 


900 sta Sabb7,x 


LG 


1620 


bcs 


dr2 




AP 200 


r2 =S06 


MD 


910 


sta $acbl,x 


IP 


1630 


dey 




,'dy<0, yinc=up 


DA 210 


x3 =S08 


GF 


920 


sta $adabrX 


PD 


1640 


eor 


#Sff 


; dy=abs (dy) 


LC 220 


r4 =SOa 


GF 


930 


5ta $aea5,x 


BF 


1650 adc #1 




OD 230 


r5 =SOc 


EF 


940 


sta Saf9f,x 


JO 


1660 


dr2 


sta dy 




BF 240 


r6 =$0e 


BB 


950 


sta $b099;X 


CH 


1670 


stx 


xi 




BC 250 


r7 =S10 


IB 


960 


sta Sbl93,x 


BI 


1680 


sty 


yi 




ED 260 


r8 =S12 


CD 


970 


sta Sb28d,x 


JF 


1690 


Ida 


yl 


;plot (xl,yl) 


HE 270 


r9 =514 


CD 


930 


sta Sb387,x 


HE 


1700 and #7 




01 280 




JD 


990 


sta $b481;X 


m 


1710 


tay 






JA 290 


*=59000 


DF 


1000 


sta Sb57b.x 


HO 


1720 


eor 


yl 




DN 295 


jmp demo 


Dr 


1010 


sta Sb675,x 


LJ 


1730 


ISE 






KG 300 


; jump table 


NG 


1020 


sta Sb76f,x 


FK 


1740 


Isr 






KG 310 


bmon jmp ibmon 


NG 


1030 


sta $b869,x 


BK 


1750 


tax 






EF 320 


bmoff jmp ibmoff 


EH 


1040 


sta $b963.x 


CA 


1760 


Ida 


xl 




m 330 


bmclr jmp ibmclr 


DK 


1050 sta $ba5d.x 


HP 


1770 and #$fB 




EE 340 


txclr jn^ itxclr 


DK 


1060 


sta Sbb57.x 


KN 


1780 


adc 


lotab, X 




KI 350 


plot jmp iplot 


KK 


1070 


sta Sbc51,x 


PH 


1790 


sta base 


,'save base 


SC 360 


draw jmp xdraw 


EK 


1080 


sta Sbd4b.x 


MO 


1800 


Ida 


hitab, X 




10 370 


r 


EM 


1090 


sta $be45.x 


10 


1810 


adc 


xl+1 




GH 380 


bitab =* ;pixel masks 


DA 


1100 


dex 


PJ 


1820 


sta base-l-1 




01 390 


.byte 128,64,32,16.8.4.2,1 


GE 


UIO 


bne cll 


IE 


1830 


Ida 


xl 




KG 400 


lotab =* n'base addresses 


ME 


1120 


rts 


DN 


1840 and #7 




HO 410 


hitab =*+l 


AO 


1130 


4 
1 


FA 


1850 


tax 






CF 420 


.Kord $a000,$al40,$a280,$a3c0 


LF 


1140 


;set bit map colour at SScOO 


CC 


1860 


Ida bitabrX 




IJ 430 


.word Sa500,$a640,5a780,$a8c0 


AH 


1150 


itxclr =* 


PG 


1870 


sta 


m 


/save maslc 


CD 440 


.word $aaO0,Sab40,$ac8O,$adcO 


JD 


1160 Ida #$bf 


IH 


1880 


ora 


(base],y 




FM 450 


.word SafOO,Sb040.Sbl80,$b2cO 


MD 


1170 Idx #250 


CE 


1890 


sta 


(baa6),y 




CL 460 


.word $b400,$b540,Sb680.Sb7cO 


OC 


1180 


coll sta SSbff.x 


KI 


1900 


Ida 


dx+1 




AD 470 


.word Sb900,Sba40,Sbb8O.SbccO 


KF 


1190 


sta 58cf9,x 


LL 


1910 


bne 


dri 




HP 480 


.word $beOO 


BG 


1200 


sta Sedf3,x 


NG 


1920 


Ida 


dx 


; (dx>=dyj 


AG 490 


4 

r 


LH 


1210 sta SBeed.x 


NC 


1930 


dttp 


dy 




01 500 


;turn on bit map at $aOOO 


LH 


1220 


dex 


AF 


1940 


bcs 


dri 




DI 510 


ibmon =* 


JH 


1230 


bne coll 


AE 


1950 


jmp 


drii 




IN 520 Ida SddOO 


EM 


1240 


rts 


AG 


19S0 


dri 


=* 


;case i -l<slope<l 


MP 530 and |S30 


IF 


1250 




AN 


1970 


Ida 


dx+1 




CO 540 


□ra #S01 


Gfi 


1260 


;fast line draw 


LE 


1980 


sta 


c+1 


;c=dx 


ED 550 sta $ddOO 


5F 


1270 


idraw =* 


PJ 


1990 


Isr 






EK 560 Ida #$3b 


MH 


1280 


;passed: 


01 


2000 


sta 


r+1 


;r=dx/2 


BB 570 sta SdOll 


HM 


1290 


xl =rO 


GD 


2010 


Ida 


dx 




AJ 580 


Ida #$38 


FN 


1300 


yl =rl 


m 


2020 


ata 


c 




MC 590 


sta $d018 


CO 


1310 


x2 =r2 


CK 


2030 


ror 






EE 600 


Its 


AP 


1320 


y2 =r3 


AP 


2040 


sta 


r 




IH 610 


' 


LD 


1330 


; altered: 


NK 


2050 


Ida 


c 




MB 620 


;back to normal text 


EE 


1340 


dx =r4 ; delta x 


HE 


2060 


ora 


c+1 




DC 630 


ibmoff =* 


ZT 


1350 


dy =r5 ; delta y 


AO 


2070 


beq 


dr9 


;if single point 


AF 640 Ida SddOO 


AA 


1360 


xi =r5+l ;l/r flag 


KK 


2080 


dr3 


Ida xi 




EH 650 and #$30 


IH 


1370 


yi =r6 ;u/d flag 


ND 


2090 


bffii 


dr4 




AG 660 


ora #S03 


KA 


1380 


base =r7 ;base of pixel addr 


NL 


2100 


Isr 


m 


; right 


MK 670 


sta SddOO 


KK 


1390 


m =r6-fl ;pixel mask 


OB 


2110 


bcc 


dr5 




GB 630 Ida #$lb 


MF 


1400 


c =r8 ; count 


AD 


2120 


ror 


m 




JI 690 


sta SdOll 


DD 


1410 


r =r9 


LI 


2130 


Ida 


base 




GP 700 Ida #S15 


HI 


1420 


Idx #0 ;xinc=right 


JE 


2140 adc #8 




EK 710 sta $d018 


LI 


1430 


Idy #0 ;yinc=down 


NN 


2150 


sta base 




ML 720 


rts 


DB 


1440 


Ida x2 ;calculate dx=x2-xl 


AF 


2160 


bcc 


dr5 




AT 730 


p 


LC 


1450 


sec 


FN 


2170 


inc 


base+1 




GO 740 


;Glear bit map $a000-bf40 


GO 


1460 


sbc xl 


NI 


21B0 


bne 


dr5 




OH 750 


ibmclr =' 


IF 


1470 


sta dx 


JO 


2190 


dr4 


asl m 


;left 


DO 760 Ida #0 


OR 


1480 


Ida x2+l 


IH 


2200 


bcc 


dr5 




MK 770 Idx #250 


04 


1490 


abc xl+1 


AL 


2210 


rol 


m 




DB 780 cll ata $9fff,x 


ID 


1500 


sta dx+1 


FO 


2220 


Ida base 




DK 790 


sta $aOf9,x 


KP 


1510 


bcs drl 


PL 


2230 


sbc #7 




KK 800 


sta $alf3,x 


JN 


1520 


dex ; dx<0, xinc=left 


HD 


2240 


sta base 
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KO 2250 


bcs dr5 




EB 2260 


dec base-fl 




JI 2270 


dr5 Ida r 


;r=r+dy 


OF 2280 


clc 




CE 2290 


adc dy 




EP 2300 


sta r 




JO 2310 


bcc dr6 




BN 2320 


inc r+1 




GB 2330 


dr6 sec 




AJ 2340 


sbc dx 




JP 2350 


tax 




JN 2360 


Ida r+1 




AH 2370 


sbc dx+1 




FD 2380 


bcc dra 




HH 2390 


stx r 


rr>=dx, 


HH 2400 


sta r+1 


; r=r-dx 


NL 2410 


Ida yi 




AJ 2420 


bmi dr7 




IL 2430 


ifiy ;down 




FP 2440 


cpy #9 




LH 2450 


bcc drS 




KO 2460 


Idy to 




PN 2470 


Ida base 




GC 2480 adc tS3f 




BD 2490 


sta base 




JA 2500 


Ida base+1 




NE 2510 adc #1 




HI 2520 


bcc drl8 




GP 2530 


dr7 dey ;up 




AC 2540 


bpl dr8 




PE 2550 


Idy #7 




JC 2560 


Ida base 




JE 2570 sbc #S40 




LI 2580 


sta base 




DG 2590 


Ida base+1 




FC 2600 


sbc n 




PC 2610 


drl8 sta base+l 


OC 2620 


drS Ida (base) ,y 


NJ 2630 


ora m 




CD 2640 


sta (base) ^y 


;pIot (x,y) 


AA 2650 


dec c 




HG 2660 


bne dr3 




LP 2670 


dec c+i 




OF 2680 


beq dr3 


; next 


HN 2690 


dr9 rtfl 




ID 2700 


drii =* 


; -I>sIope>l 


EP 2710 


Ida dy 




KO 2720 


beq drl5 


; single point 


AJ 2730 


sta c 


;c=dy 


NI 2740 


Isr 




PK 2750 


sta r 


;r=dy/2 


NI 2760 drlO Ida yi 




AK 2770 


bmi drll 




GB 2780 


iny ;down 




DF 2790 


cpy #8 




HI 2S0D 


bcc drl2 




FE 2810 


Idy ftO 




ND 2820 


Ida base 




EI 2830 adc ttS3f 




PI 2840 


sta base 




m 2850 


Ida base+l 




LA 2860 adc #1 




00 2870 


bcc drl9 




DE 2880 


drll dey 


;up 


BD 2B90 


bpl drl2 




NK 2900 Idy #7 




PN 2910 


sec 




BK 2920 


Ida base 




BL 2930 sbc #$40 




DF 2940 


sta base 




LM 2950 


Ida base+l 





NI 2960 

IJ 2970 

PF 2980 

OG 2990 

OC 3000 

AB 3010 

EH 3020 

CM 3030 

KL 3040 

LG 3050 

KN 3060 

00 3070 

PL 3080 

EP 3090 

AA 3100 

IH 3110 

GA 3120 

DH 3130 

10 3140 
GD 3150 
BJ 3160 
PE 3170 
DO 3180 
KB 3190 
FO 3200 
HF 3210 
NF 3220 
CE 3230 
GL 3240 
LO 3250 
FM 3260 
ND 3270 
EL 3280 
KB 3290 
MP 3300 
FE 3310 
KN 3320 
IK 3330 
lA 3340 
JH 3350 
GJ 3360 

11 3370 
DK 3380 
KL 3390 
LD 3400 
JE 3410 
FG 3420 
IB 3430 
II 3440 
BH 3450 
HC 3460 
PH 3470 
JN 3480 
LH 3490 
FI 3500 
BI 3510 
EK 3520 
EH 3530 
HF 3540 
CN 3550 
PF 3560 
ID 3570 
PJ 3580 
BN 3590 
NS 3600 
PL 3610 
DF 3620 
AN 3630 
LP 3640 
CC 3650 
ID 366D 



sbc n 

drl9 sta base+I 

drl2 Idx #0 

Ida r ;r=r+dx 

clc 

adc dx 

sta r 

bcs drl6 

inx 

sec 

drl6 sbc dy 

bcs dri7 

dex 

beq drl4 

drl7 sta r ;r>=dy, r=r-dy 

Ida xi 

bffli drl3 

Isr m ; right 

bcc drl4 

ror m 

Ida base 

adc #8 

sta base 

bcc drl4 

inc base+l 

bne drl4 

drl3 asl m ;left 

bcc drl4 

rol m 

Ida base 

sbc #7 

sta base 

bcs drl4 

dec base+l 

drl4 Ida (base) ,y 

ora iQ 

sta (base),y ;plot {x^y) 

dec c 

bne drlO ;next 

drI5 rts 

;fast plot 

iplot =* 

; passed: 

xc =rO 

yc =rl 

.altered: 

;base =r7 

ptemp =r6+l 

Ida yc 

and #7 

sta pten^ 

eor yc 

Isr 

Isr 

tax 

Ida hitab.x 

adc xc+1 

sta base+l 

Ida lotab,x 

sta base 

Ida xc 

and #7 

tax 

ecr xc 

adc pten^ 

tay 

Ida (base)ry 

ora bitab,x 

sta [base) ^y 

rts 



t^ 


3670 






GM 


36S0 


; show-off demo 


KM 


5000 


demc 


1 =* 


GN 


5010 Ida #S36 


DH 


5020 


sta 


1 


KA 


5030 


jsr 


twnon 


FD 


5040 


jsr 


txnclr 


HG 


5050 


jsr 


txclr 


FK 


5060 Ida #0 


OC 


5070 


sta xl 


KP 


5080 


sta 


xl+1 


DE 


5090 


sta 


yi 


AB 


5100 


sta 


x2+I 


MI 


5110 Ida #$9f 


CG 


5120 


sta 


x2 


T.F 


5130 


Ida 


#$63 


HH 


5140 


sta 


y2 


EJ 


5150 


F 

r 




OH 


5160 


Ipl 


=* 


OA 


5170 


jsr 


draw 


KL 


51S0 


Idx 


xl 


CC 


5190 


inx 




MA 


5200 


stx 


xl 


OF 


5210 


bne 


lp2 


IG 


5220 


inc 


xl+1 


PG 


5230 


bne 


ipl 


00 


5240 






MN 


5250 


lp2 


=* 


OH 


5260 


cpx 


#S3f 


HJ 


5270 bne 


Ipl 


AO 


5280 


Idx 


xl+1 


AH 


5290 


beq Ipl 


KC 


5300 


t 




HB 


5310 


Ip3 


—* 


EK 


5320 


jsr 


draw 


BF 


5330 


Idx 


yi 


IL 


5340 


inx 




DK 


5350 


stx 


yi 


GN 


5360 


cpx 


#Sc7 


BA 


5370 


bne 


lp3 


AO 


5380 


jsr 


draw 


EI 


5390 


t 




KH 


5400 


lp4 


=* 


FD 


5410 


dec 


xl 


lA 


5420 


jsr 


draw 


EL 


5430 


Idx 


xl 


KE 


5440 


bne 


lp4 


JC 


5450 


dec 


xl+1 


DH 


5460 


beq Ip4 


CG 


5470 


inc 


xl+1 


ON 


5480 


* 
f 




IN 


5490 


lp5 


=* 


IF 


5500 


jsr 


draw 


EK 


5510 


dec 


yi 


NJ 


5520 


bne 


lp5 


AI 


5530 


Ipw 


Ida 197 


AH 


5540 


cn^ 


#60 


BC 


5550 


bne 


Ipw 


EL 


5560 


jsr 


bmoff 


KA 


5570 Ida #$37 


DK 


5580 


sta 


1 


CH 


5590 


rts 





GF 5600 

DG 5610 

BO 5620 

HP 5630 

NC 5640 

EH 5650 

lA 5660 

MJ 5670 

AC 56eo 

HB 5690 



xdraw =* 

Ida #4 
inc Sfb 
bit Sfb 
bne xd 
rta 

F 

xd =* 

jiup idrau 



□ 
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Cycle Counting 



A technique for writing faster code 



bv David Sanner 



Throughout rhis article, I will be concerned mainly with a sin- 
gle aspect oi' program analysis: execution speed. The specific 
focus will be on the technique of "cycle counting" for detcr- 
miiiing the precise execution speed of a machine language or 
RASTC program. Well also look af some of the techniques used 
to write faster code. 

The quest for speed from a computer is unending- One way to 
speed program execution is to use 'canned' algorithms. For ex- 
ample, sorting algorithms, such as those found in computer 
science textbooks, have become quite sophisticated. Many of 
them have been analyzed with mathematical techniques. This 
aiiows us to compare their respective performances. 

But an in-depth mathematical analysis of a program can be 
quite complex, and may require skills the general programmer 
does not possess. Of course^ this does not mean one cannot ap- 
ply simpler methods of analysis. For instance, you might use a 
stopwatch to measure the time it lakes different spreadsheets 
to recalculate the same data. 

But in the case of an ML subroutine^ the execution time is often 
very small - much less than the time it takes to operate a stop- 
watch. In terms of the computer's speed, however, the code 
that has just been executed may he very slow, inefficient, and 
wasteful of valuable processor time. A good example where 
efficient code is a necessity occurs when computers try to 
communicate with other devices {such as disk drives). The 
speed at which they can send data to each other is often stag- 
gering - thousands to millions of bits in one second. At this 
speed the code used lo communicate and transfer data must be 
able to respond quickly, or things will go awry. 

Other examples of the need for speed include: changing the 
screen colour during a horizontal blank interrupt, smooth ani- 
mation, controlling background music, or ^Tine-tuning" your 
code to run as fast as possible. It is clear that for these cases, 
the human time frame will not do the job. We will have to 
meet the computer on its own ground. 

The cycles of the 6510 

The 6510 inside your C64 is controlled by a clock. The ^ticks' 
of this clock control how fast the processor can manipulate in- 



formation (each tick is called a **cycle"). In the C64, a cycle 
occurs every one millionth of a second (approximately). Thus 
we say the processor runs at about one megahertz. 

The 6510 has 56 op-codes. Each requires a certain number of 
cycles to execute. ITie exact number depends on several fac- 
tors, but is always between two and seven. The first factor, ob- 
viously, is which instruction you are using. The second factor 
is its addressing mode. The last is the 'effective address'. 

Effective addresses 

The effective address is the final address the processor will use 
to access memory. This address is calculated in the processor, 
by taking into account the addressing mode (indexed, indirect, 
zero page, etc.) and the base address. 

For example, consider the instruction lDa SFOOO. Tt requires 
three cycles to execute, and uses the absolute addressing 
mode. The effective address of this instruction is simply the 
address given, ^hkk). The instruction LDA (iFO),Y, however, uses 
the indirect indexed addressing mode, which makes calculat- 
ing the effective address somewhat more involved. It requires 
six cycles to execute. 

To calculate the effective address in this case, the processor 
grabs the two bytes starting at $F0. It fonns the base address 
using the byte at $F0 as the low byte, and the value in SFl as 
the high byte. Then it adds in the contents of the Y register to 
this base address. This forms the effective address for the indi- 
rect indexed addressing mode. 

T said that this instruction requires six cycles. If you examine a 
chart of the 6510 op-codes, however, you will notice a foot- 
note on this instruction. It could be phrased: *Tf the effective 
address crosses the base address page, add one cycle to the ex- 
ecution time/' 

The concept of a page is an important one for calculating cycle 
times. Briefly, the 65lO's address space is divided into ^pages* 
- groups of 256 bytes. The lowest page is known as page zero - 
SOOOO-SOOFF. Page one occupies iOKKi-SOlFF, page two from 
$0200-$02FF, and so on. Note that the page number is simply the 
high byte of the address. 
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Regarding the footnote, it's now clear that if the value of the Y 
register causes the effective address to cross the page pointed 
to by SFO and SFU we must add one cycle. 

Counting cycles by hand 

Let's look at two ML subroutines (see Listing 1 and Listing 2 at 
the end of this article}. Both perform the same task: filling 256 
bytes with a value of zero. The starting address is passed with 
the low byie in X, and the high byte in Y. The fill proceeds 
from the start address upwards, towards SFFFR 

First, well count the cycles needed to execute Listing L It 
may be handy to have a copy of the Commodore 64 Program- 
mer's Reference Guide nearby. It contains a table giving the 
cycle requirements for each op-code. 

To simplify our analysis, let's assume that filling will always 
begin at the start of a page. e.g. S8fKX)- Since we fill from the 
beginning of a page, there can never be any page crossings 
when we use STA ($fb).Y or STA SHOOO.Y. Wiih no page cross- 
ings» we don't have to worry about any extra cycles. This 
would be the "best case" for these subroutines. In the "worst 
case*\ we would cross pages on all or most of our sta instruc- 
tions. This would occur if the start address for filling was at 
Che end of a page» e.g. $80FF. 

The first five instructions (up to, but not including the one at 
loop!) take 16 cycles. The main loop (four ops) takes 13 cy- 
cles. (Note that we are assuming that the BNE does not cross a 
page - if it did, that would add one morel). This loop will exe- 
cute until Y becomes SFK Since Y is zero when the loop is en- 
tered, this makes for 255 passes through the loop. Of these, 
254 passes will use 13 cycles (a total of 3302). The last time 
through, the bne will fail, using only two cycles to execute. 
(All branch instructions use three cycles if the branch is taken, 
and only two if it is not. An extra cycle is needed if the branch 
address is on a different page than the branch instruction). 
Adding these 12 cycles for the last loop gives us 3314 for the 
entire loop. The final instruction, RTS, uses six cycles. Since 
this is a subroutine, it will be called with a JSR, This takes six 
cycles as well (note that we are not considering the time it 
takes to load the X and Y registers with the proper values be- 
fore the call). All told, 3342 cycles are required for this sub- 
routine to be called, execute, and return. 

Listing 2 is two bytes shorter than Listing 1, The first four in- 
structions take 12 cycles. The three instructions in the main 
loop take only ten cycles. This is where we can gain a lot of 
speed - with fewer instructions inside a loop, it will execute 
faster An obvious point perhaps^ but one that can never be 
stressed enough. 

The main loop will be executed 256 times. Of these, 255 loops 
use ten cycles per loop (2550 cycles). Only nine cycles are 
used the last time through the loop (because the bne is not tak- 
en), so the loop total is 2559 cycles. The final total of 2583 cy- 
cles is a signillcant improvement (about 30%) over Listing 1. 



A bit about code tweaking 

Sometimes programmers use techniques that exploit ^limita- 
tions' or special characteristics of a processor. I call this 
'tweaking'. For instance* notice how you can exploit a 'limita- 
tion* of register size in Listing 2. When the loop is first en- 
tered, Y is zero. After it is incremented* we test it - without 
comparing it. The BNE is taken if the Z flag is not set. There 
are many instructions that can set or clear the Z flag. The CpY 
#$30 compares Y to the value of $30 by subtracting - if the re- 
sult of that subtraction is zero, the Z flag in the status register 
will be set. This indicates the values are equal. 

Listing 2 uses a different method for setting the Z flag, howev- 
er. Since each register is only eight bits wide (the 'limitation'), 
the maximum value is $FF. If you execute an INY when Y is 
SFF. it will 'wrap around' to SOO, With the IKY instruction, if the 
processor detects that Y is zero (after it's incremented), it sets 
the Z status flag. 

If we assume thai we are at the top of the loop, and Y is SFF, 
the following will occur: After we store A, we increment Y, 
thus ^wrapping' Y to zero, and sening the Z flag. The BNE will 
now fail, because the [NY has set the Z flag for us. 

Sometimes, shortcuts may violate the rules of 'clean' program- 
ming practice, or they may even fail in certain situations. For 
instance, in Listing 2. notice that indexed absolute addressing 
is used in the main loop, with Y as the index: STAS(XXH).Y. This 
uses fewer cycles than the indexed indirect addressing mode 
(the STA (SFB),Y) used in Listing L It may, however, present 
some problems. 

For the main loop to store A at the proper address, we use the 
contents of X and Y. Instead of storing them on page zero, as 
in Listing 1, we store them into the actual instruction area. In 
other words, we modify the operand of the sta instruction ev- 
ery time the subroutine is called. 

This is referred to as * self-modifying code\ since the existing 
instructions themselves are modified. When you use this tech- 
nique, errors can occur that are quite difficuh to track down. 
Furthermore, since you actually store data into the program 
area, you cannot place such a program in ROM. 

The location where the start address will be placed is also 
fixed; if you want to relocate the code, you will have to re- 
assemble il, or modify the first two ops to point to the proper 
address. Listing 1 avoids this difficulty by using zero page lo- 
cations. 

So, it seems we do not get something for nothing. We can in- 
crease the speed by tricks and clever programming, but we 
may sacrifice the generality of the code. Also, not every sub- 
routine, or line of code needs to run as fast as you can make it. 
You should ask yourself some questions before you undertake 
a serious effort. For instance, is the time you will spend 
squeezing a few more cycles out of your code worth it? You 
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may find yourself spending hours getting the perfect subrou- your program). Enter the address as a four digit hex number, 
tine, but end up neglecting the rest of your code. e.g. SORGO, cc has preprinted the 'S'for you. 



The example I gave using Listings 1 and 2 was really quite 
simple. It took about five to ten minutes lo calculate Che cycles 
used for each listing, if you have a larger section of code, the 
procedure becomes much more complex: not only is there the 
cycle time of each instruction based on the addressing mode 
used, but you must also keep careful track of all the slatus 
flags, changes in memory locations, etc. Needless to say, it 
sounds like a job that is more suited for a computer. Hence Cy- 
cleCounter. 

When I was writing CyclcCounter {CC. for short) I had several 
goals in mind. I wanted to use it on basic as well as machine 
language programs. It would be nice to :^ce each instruction as 
it executes, complete with register values and a running total 
of cycles used. I wanted to be able lo stop the program and 
change the values of the registers. The version of CC presented 
here incorporates all these features. 

CxcleCoiinter is located ai SCO(X>. It is a little over 3K of ML, 
Unless you are timing a BASIC program (sec ihe section on 
timing your BASIC program), you will need a machine lan- 
guage monitor (mlm) to use it. I have tested CC with two mon- 
itors, and have had no problems. I have also timed many basic 
programs, and have encountered no problems (however, see 
the section on the limitations of CC, below). 

The easiest way lo illustrale the use of cc is to go through a 
quick example. Let's say your friends at the local CBM users' 
group swear that the fastest machine language code to move 
256 byles of memory from one location to another takes 3000 
cycles. You know you can do it faster, and you want to check 
your code's speed. 

First, load and run your mlm, then load your new code. Final- 
ly, load in CC. Using the 'execute code' command from your 
MLM (usually a 'J" or 'G'), you start up CC, After you give CC 
some information, it begins to execute your code. When your 
program has finished. CC prints out a total of all (he cycles 
used. It*s as simple as that. And because CC returns control the 
MLM. you can continue lo modify your program. 

To use CC from your monitor, simply use the "Execute" or 
"Jump to*' command. A normal CycleCotwier starts at sctxxi. 
Unless you relocaie it. you should jump there to begin normal 
execution. Note that CC uses the BKK command to stop itself 
and relum to your MLM. 

When you run CyckCoimter, it will ask you for information 
about your program and options. These options and inputs are 
explained below. 

The start address 

The first thing CC will do is ask you for the address at which it 
should begin counting cycles (usually, this will be the stan of 



If you wish to abort CC at this time, simply hit Return. 

The end address 

There are two options for the End Address requesL If you wish 
CC to stop counting and return control to (he monitor at a cer- 
tain address, enter that address. For example, entering $0820 at 
the prompt will allow CQ to count cycles until the PC (the Pro- 
gram Counter) is $0820. At this point, CC will execute a 'brk* 
instruction, returning control to the monitor. 

The second option for the End Address input is to enter a 'b'. 
This tells CC to count cycles until a 'brk' instruction is en- 
countered. Tltis is useful if you are writing code while in the 
MLM, and have forgotten the end address of your code. 

In either case, an end message giving the total number of cy- 
cles used will he printed. As with the Start Address, you can 
abort CC at this time by simply hitting the Return key instead 
of choosing an option. 

Executinf^ instructions 

The next question CC will ask you is if you want your code to 
be executed or not. Enter a 'y' or 'n' at the prompt. If CC does 
not execute your code, it will look at each op-code and add in 
the lowest possible cycle time to the total number of cycles 
used. Your instructions will not be 'run' - they are only used to 
look up cycle times. 

When you asV CC to execute your program, however, each in- 
struction of your program is actually 'run\ just as if you had 
executed it instead of CC. The total number of cycles used can 
differ a great deal from the total you get if you do not choose 
to execute the code. 

The execute mode is much more accurate because this is the 
only way CC can keep track of register values and other 
changes that affect your program's cycle time. For instance, 
with branch instructions, such as beq, bne, etc.> the only way 
to know how many cycles are actually used is to know if the 
branch is taken. Similarly, for modes such as indexed address- 
ing. CC must be able to calculate the effective address by using 
the values in the registers. If you did not elect to have CC exe- 
cute your program, the register values will never change. 

Finally, as with the previous two input requests, you may abort 
CC by simply hitting the Return key at the prompt. 

Print trace 

This prompt allows you to choose whether or not you will see 
the output that CC can display. If you want to see the output 
display, enter a 'y'; otherwise, enter 'n\ Once again, simply 
hitting the Return key will abort CC. 
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The output thai cc can produce will look like the following: 2, Continue: to leave pause mode, enter a ^c". This allows cc 

to run at full speed again. 

PC MNEMONIC MODE A X Y ST SP CYCLES 

3. Toggle trace: to change the setting of the Sprint trace' op- 
where tion, enter a 't' at the prompt. 



PC - is the current Program Counter 

MNtMUMC - is the 3 letter code for the instruction 

MODE - is the addressing mode that the instruction uses; e,g. 
{$FB).Y represents the indirect indexed mode. 

A, X,Y, ST, SP' are the current values of (he accumulator, X and 
Y registers, status register, and stack pointer, respectively. Val- 
ues shown are in hex and represent the contents after the in- 
struction at the PC has been executed. 

CYCLES - is the number of cycles used since cc began, includ- 
ing those for the current instruction. Note ihat the cycle count 
is a decimal \'2Av{^. 

For example, we mighl have the following: 



30300 LDA #S00 



00 01 02 32 FE 000002 



which indicates that we have just executed the instruction dl 
S08{X), and the value of all registers and cycles are shown as 
they are after the instruction has executed. If you did not 
choose the 'execute instructions' option, the values of the reg- 
isters will not change. Note that only six digit places are given 
to the current cycle count. This is due to the narrow screen. 
The final message will print out cycles used with nine digits. 
Unless your program is very large, it is unlikely that these val- 
ues will wrap around. 

Setting initial register values 

The last input ^'i^ needs is the values in the registers when it 
begins your program. To change a register value, move the 
cursor under the register label, and type the new value. When 
you hit Return, the values are recorded, and cc begins. If you 
simply hit Return when the register display is presented, CC 
will not abort; rather, it will use the current register values. 

The pause mode 

While CC is running, you may wish to stop it for a moment. To 
enter the pause mode, press the Fl key. This will display a '>' 
prompt so you may enter commands. All commands must be 
followed by a Return. Any command not recognized will he 
treated as if you simply hii Return. The Ibllowing is an expla- 
nation of the pause mode commands: 



4, Modify rej^isters: to display and/or modify current register 
values> enter an *r' at the prompt. You will see: 

A X Y ST SP 

00 01 02 36 F8 

Change the registers as explained above or Return to accept 
current values. Of course, you cannot alter the value of the 
stack pointer (SP). 

5, Wait for address: Even though execution is hundreds of 
times slower using CC, the addresses and instructions can 
scroll by very quickly. Moreover, it can be very tedious to sit 
through several minutes of listings to observe a certain piece 
of code in action. The 'Wail' command was designed to avoid 
these situations. 

To use the wait command, enter 'w 0123' at the pause prompt. 
The ^w^ specifies the Wait command. The '0123' is any four 
digit hexadecimal address. When cc reaches that address, it 
will enter the pause mode. 

You can combine this command with the Toggle Trace' com- 
mand to skip very long sections of print-out. For instance, if 
your >ait' address is deep into the code - that is, it will take a 
while to reach it - you may want to turn the trace off. This 
would enable cc to execute much faster (output to the screen 
slows execution down tremendously), but still allow you to 
view your selected areas of code. 

6, Quit: enter a 'q' and cc will issue a BRK command. Control 
then returns to the calling program. 

Relocating CycleCounter 

Any machine language utility should be relocatable (since you 
may want to test your own code at scooo). All the monitors that 
1 have used have a relocation command for code. The basic 
principle behind them is to modify all absolute address in- 
structions (JMP $cooo, LDA %Cim. etc) whose operands are 
within the range of the old code. Thus, an absolute address in- 
struction that used a location within SC(X»)-SCDOO would be 
changed (if we were relocating CC). It would not modify any 
other absolute address instructions, such as those that access 
the VIC chip at SDCHM). Consult your monitor manual for the 
command usage or simply assemble the source with your de- 
sired start address. 



1. Single step: hitting Return will cause CC to go on to the If youYe working with the object code, you will have to do a 

next instruction. If CC is exeatfin^ your code, the instruction little more work than just move cc around in memory, howev- 

will be performed. CC will return to pause mode after each in- er. In order for CC to be relocatable, it has to use pointers to 

struction. various data areas. These pointers contain absolute addresses 
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thai point to locations within the cc code. Whenever you relo- 
cate CC. you must modify these pointers as well (there are 
about 30 or so). This is so tedious that I have included a short 
routine at the end of CC to do it for you. To relocate CC to a 
new address, follow ihe:^e instructions (begin with CC loaded 
into location $C()0()): 

1) Put the low byie of the new address into location $CO()B. Put 
the hieh bvte of the new address into location $C(H)C. 

2) Use the monitor to execute the code starting at SC006. 

3) When control returns from the subroutine. Move (using the 
memory transfer utility of your monitor) locations Scooo-Sccoc 
to the new location. 

4) Using the relocation command of your monitor, relocate all 
code stalling at offset S0452 from your new address. That is, if 
your new start address for cc is snxxj, you will want to relo- 
cate all code from $1452 toilCOC. 

5) You will have lo modify the first three instructions by hand. 
If you look at $C(hmi with the disassembly tool of your monitor 
(with CC loaded), you will see three successive jmp instruc- 
tions. You must change the absolute addresses of these instruc- 
tions to refer to the new addresses of the relocated code- For 
example, if your relocated CC started at linoo, you will have to 
change the instruction at SKKiO frotn 'IM?$C452* to 'JMP SI4S2' 
(you will have to change the other two as well). 

6) Save the new version of cc. 

Using CycleCounler with basic programs 

One of the more interesting features of CC is the ability lo 
count the number of cycles your basic program uses. In order 
to exph)it this ability, you should use the following procedure: 



culion. The operating system appears to encounter problems 
with the additional text on the screen. 

Limilations of CycleCounter 

When designing CC. I wanted to keep it as transparent as pos- 
sible. The optimal utility would not interfere at all with the us- 
er's program. For the most part. CC follows this guideline. 
There are times, however, when cc must utilize the operating 
system; possibly jeopardizing a user's program. For example, 
cc makes calls to the system routine chrout. This routine is a 
general routine for outpulting characters to a device. CC as- 
sumes that the screen is always available, and so makes no at- 
tempt to check if your program changed this. CC also makes 
calls to CHRJN, the general character input routine. The only 
way to maintain complete transparency, while still utilizing 
these system routines, is a method known as a 'virtual system'. 
Essentially, what would occur is that cc would keep a copy of 
all important system variables for itself, and load them into 
place every lime it used the system, saving the user's 
variables. This is expensive and time consuming - but possible 
in theory. 1 opted, however, to keep CC as small and as fast as 
possible. 

Conflict with operating system requests is not the only prob- 
lem that may occur. Recall that the speed of CC's execution 
mode (where your code is actually being executed) is several 
hundred or thousands times slower than normal execution 
speed. Thus, if your code is interacting with any time-sensitive 
devices (disk drive, timers, etc.), you should not use the execu- 
tion option. Instead, you may wish to change the address of 
any memory mapped registers your program accesses, to nor- 
mal memory addresses- This way you can still check the run- 
time speed, without actually changing any hardware values. 
This could prevent a lock-up or similar disaster. 

How CycleCounter works 



First. load in CC using a secondary address of one: 
load "cyciecounter , 02" , 8, 1 

(and remember to enter 'new" to reset the pointers). Use the 
version located at SC(HHi, leaving the normal BASIC RAM free. 

Now SYS 49155, When the BASIC prompt returns, type RUN. 
You will enter CC. 

The request for the starting address will be skipped. When CC 
asks for an ending address, you must enter $A4m. This is the 
address of the top of BASIC'S main loop. When the PC is equal 
to this, cc will know that your JiASiC program has finished, 
and it wiil return control to BASIC. Answer the remaining ques- 
tions to suit your preference. 

Note thai if you do nol have CC execute the code, there is no 
guarantee that you will eneonnfer the address of$A4H0. In ad- 
dition, u is noi advisable to print a trace out of the whole exe- 



Some of you may be curious about how CC works. It is diffi- 
cult to learn much in assembler by typing in hex codes. A dis- 
assembly helps, but often a programmer's best tricks use the 
computer in a way that is not immediately obvious. I will dis- 
cuss some of the techniques that I used in cc that may be of 
interest. I hope that this will give you new ideas or spark an in- 
terest in using them in your own code- 
To start with, cc has over IK of data. Much of the size of cc is 
accounted for by input/output routines: formatting routines for 
op-code print-out, etc. There is also a data table for the op- 
codes. Each op-code has one byle, and the groups of bits with- 
in each mean something to CC. For instance, bits zero throiLgh 
two are used to give the basic cycle count for chat op-code to 
execute. To get information about a specific op-code, we use a 
'look-up table': that is, we use the op-code as an index into the 
table, and look at the bits we need. 

To execute one of your program's instructions, CC copies the 
instruction into its own code area. After this, the user's six reg- 
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isters are reloaded with the values they had after the last in- 
struction from your program. The inscruciion is then executed 
by simply letting cc run into it. as if it had always been there. 
Actually, before cc copies your code into its own instruction 
area, it puts three nops in a row. This works out nicely, since 
the maximum length of any 6510 instruction is three bytes. If 
an instruction is less than that, it will be executed, followed by 
one or two NOPs. Since the NOP does nothing, the status regis- 
ter and memory areas of your program are unaffected. If we 
did not clear out the instruction area with NOPs, we might exe- 
cute the data or instructions left over from the last op-ctxle. 
This is an example of self- modification, as discussed above. 

After your program's instruction has been executed, cc takes 
over again, saving all your registers before continuing. 

There are several instructions that CC does not copy into its 
own program area; jmp absolute is one. To see why, consider 
what would happen if cc copied a JMP lOSOO into its own pro- 
gram area, and then executed that instruction. Coniroi would 
pass to whatever code is located at S0800 - cc has lost control 
of the processor! 

To avoid this situation, such instructions are simulaled by cc. 
For example, a JSR $1000 command, executed normally, pushes 
the current value of the PC + 2 onto Che stack, and then loads 
the PC with $1000. Since CC keeps track of the user's PC, it is 
short work to change it, and then push some data onto the 
stack. An RTS instruction is likewise simulated: cc pulls the re- 
turn address from the stack, and changes the copy of your pro- 
gram's PC, 

The poini is: CC never loses control of the processor - each in- 
struction that would cause this to happen has a special routine 
to simulate its effect on the processor and programming envi- 
ronment. In fact, even the brk instruction is simulated. 

Earlier. 1 mentioned the concept of a Virtual system', where 
CC would keep all the important system variables in a data 
area, swapping them back and forth with your program's sys- 
tem variables (system variables include such things as what 
files are open and where the current text screen is located). Cy- 
cieCounter does this with the registers, but it also does a small 
amount of swapping of memory as well. It uses some of the 
free zero page space (addresses SFB-Sff) for its own variables. 
It would not be a very useful utility if you could not use these 
zero page locations yourself, so CC keeps two copies: one for 
you and one for itself. 

It works like this: Up until cc actually executes your next pro- 
gram statement (or simulates it), it is using locations SFB-$FE 
for itself. Right before your program instruction is done, it re- 
places (hese memory locations with your copy of $FB-FE. After 
your instruction is done, it copies your values of SFB-$FE into 
its data area, and moves its own copy of SFB-$FE back in. Your 
program never notices thai these memory locations are shared 
by two programs. This is exactly like saving and restoring the 
registers. 



Using CycleCounter as a programming tool 

Now it is time to show how we can use CC to help in the de- 
velopment of faster code. 

Despite its great graphic capabilities, the C64 lacks system- 
supported graphics primitives. There are no commands to 
draw lines, dots, squares, or anything. Instead, the programmer 
must manipulate the bits and bytes of the display screen 
memory. The biggest problem with this approach, at least in 
BASIC, is the lack of speed. The drawing of images is agoniz- 
ingly slow. 

The C64 Programmer s Reference Guide offers a simple algo- 
rithm to light a pixel on a hi-res screen (see pages 125-126 of 
the FRG). This is a very important routine, since almost any 
graphics routine that draws on the screen will have to use it. 
Since it will be used so often, it should be as t'ast as we can 
make it. Our goal will be to develop the fastest pixel-lighting 
routine possible. 

In BASIC, we can reduce the PRG code to the two-line subrou- 
tine (lines 100 and 110) in the short program below. Note that 
the variable ba is the base (or start) address of the hi-res 
screen in memory, and the X and Y variables represent the co- 
ordinates of the pixel on the screen. Lines 10 and 20 set and 
make the call to the pixel plotting routine: 

10 ba = S192:x = 50:y = 50 

20 gosub 100:end 

100 by=ba+(int(y/S)*320)4(8*(int{x/ai)+{yand7) 

110 polieby,peek{by)or(2M7-(xaiid7))):return 



Using CC to time this short program, we get the following cy- 
cle counts; Timing 1, 85646. Timing 2, 14t^620 

There are two points of interest here. The first is the number of 
cycles used! As we shall soon see» this is a staggering amount 
of processing time to spend on such a (seemingly) simple 
operation. BASIC users trade speed for the usefulness of an in- 
terpreted language. 

The second interesting point is that jhere are two different 
times listed for the one program. In the first timing, I made 
sure the screen was clear before using cc. T then typed RUN at 
the top of the screen. In the second timing, 1 typed RUN on the 
bottom line of the screen. After both trials finished, BASIC 
printed 'ready.' to the screen. When the second timing ended, 
however. BASIC had to scroll the screen upwards before print- 
ing the READY message. This accounts for the large difference 
in timings. Printing to the screen has never seemed so expen- 
sive! From now on, I will only discuss timings achieved when 
Ihe screen has been cleared, and scrolling is not necessary. 

Anyone who has programmed in machine language is aware 
of ihe increase in speed over equivalent BASIC programs. List- 
ing 3 at the end of this article is an ML program that was devel- 
oped by following (he BASIC subroutine. 
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Reproducing the exact equations used in the BASIC subrouline 
would be very tedious. To avoid ihis, I first reduced as many 
of the expressions as possible to lowest terms. For instance, 
the equation 



(8 



(int (X / 8)) ) 



can also be written as 



(X and 248) 



provided the value of x is between zero and 255, 

The equation involves a multiplication by 40. To achieve this, 
I used the simple technique of adding the multiplicand to itself 
40 times. 

Once the correct byte has been located, the position of the bit 
within that byie must be determined. The basic method in- 
volves exponenlialion - specifically, raising two to a small in- 
teger power. This can be done vety efficiently in machine lan- 
guage by shifting a single bit left within a loop. 

In order to allow meaningful comparison with the basic pro- 
gram above, we need a few lines of basic from which to call 
the machine language: 



10 I = 50: y = 50 

20 gosub lOOiend 

100 poke 782, y 

110 if i>255 then poke 7e0,l:polte 7fllr(x and 2551:goto 130 

120 poke 7aOJ:poke 781,i 

130 sy3327e8;return 



This program uses the fact that when the SYS command is is- 
sued from BASIC, it loads the A, X, and Y registers with the 
values found in addresses 780-782. Then it passes execution to 
the machine language subroutine. Since our subroutine re- 
quires the registers to contain the proper values, we can simply 
poke those values into memory and let the SYS command load 
them for us. Of course^ this method is not as general as the BA- 
SIC version, since we cannot simply change the location of the 
screen by modifying a variable. However, notice that each ma- 
chine language subrouline loads a value that is the high byte of 
the start-of-screen-address (no low byte is needed since the 
screen must start on the beginning of a page, e.g, siooo). This 
is performed by the LDa #$20 instruction in each routine. 
Should the need present itself, you could simply poke a new 
value into the instruction area. Note, however, that this loca- 
tion is different for each routine. 

With the code from Listing 3 located at ssooo (decimal 32768), 
we can now use cc to time the total number of cycles used. 
The minimum number of cycles needed to complete this rou- 
tine, including an extra 6 cycles for a JSR, is 829. The maxi- 
mum number of cycles this routine will ever need is 998 cy- 
cles. Why are there multiple timing values for this routine? 
Recall that we are using loops and addition in this routine. 



Some values of the X and Y coordinate will cause the loop at 
loop2 to be executed seven times, while others will require on- 
ly one pass through it. Also, the addition we are using in the 
main loop, loopl, is double precision. Although this loop is 
executed the same number of times for each call to this rou- 
tine, different values of the Y coordinate (for example, very 
large numbers) will cause the INCPNTR+I instruction to be exe- 
cuted more frequently. Small values of Y can get through the 
loop without ever using this instruction. Thus, in this subrou- 
tine at least, the values of the pixel coordinates can affect the 
timing - if only by a hundred millionth of a second, or so. 

When we lime the BASIC program thai calls the routine in List- 
ing 3, we find it uses 43686 cycles to complete. This betters 
the speed of the original BASIC pixel plotter by about 49%. 

Computers can perform feats of mathematics far faster than 
any of us could hope to. Compared to other functions, howev- 
er, the instructions used to perform mathematics can be very 
slow. In any situation where you are trying to improve the 
speed of your code, you should try to exploit as much knowl- 
edge about the problem and computer as possible. For in- 
stance, the following lines of machine language perform the 
math function of multiplication by four: 

clc /prepare for add 

Ida value ;we'll multiply value by 4 

adc value ;acc = value * 2 

adc value ;acc = value*3 

adc value ;acc = value * 4 

sta value ; store result 

There are two assumptions to bear in mind for this short seg- 
ment of code. The first is that value is not located on zero 
page. If it were, fewer cycles would be needed to perform this 
code. The second is that value * 4 will not exceed 255» since 
we make no provision for handling a carry. 

The total time taken by this code segment is 22 cycles. Now 
look at the following lines of code: 

asl value ;shift left = * 2 
asl value ; shift left = * 4 

Like the previous example, this segment of code multiplies a 
number by four (the same assumptions apply). This time, how- 
ever, instead of using the standard addition instruction, adc, 
we used the ASL (shift left one bit) instruction. We have ex- 
ploited the fact that moving a binary number two places to the 
left is the same as multiplying it by four. The timing for this 
segment of code is now only 12 cycles. This comes close to 
halving the number of cycles (in addition to reducing the num- 
ber of instructions by a factor of three) needed by a more 
straightforward approach. Simple observations like this can of- 
ten lead to faster and more efficient code. 

Listing 4 contains the assembly code for another subrouline 
that sets a pixel on a hi-res screen. You will notice that it bears 
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little resemblance to Listing 3. This is because it uses informa- 
tion about C64 hi-rcs screens that Lisling 3 did nol. This extra 
information is held in a table at the end of FASTPX. The data 
are based on several observations. 

First, in the previous pixel-lighting algorithm, we spent a lot of 
time multiplying the value of Y to obtain the correct address. 
This is necessar}' because of the non-linear method by which 
.screen memory is displayed (you may wish to refer lo pages 
122-127 in the PRO for a more complete description of the 
standard hi-res mode). The second observation is that, instead 
of muhiplying. pan of the address can be obtained by using 
the Y value as an index into a table of offsets. This table is in 
two parts: the low bytes of the offsets and the high bytes of the 
offsets. By adding in the high and low byte of (he offset to a 
base address, FASTPX quickly calculates the address of the left- 
most pixel for the row. 

For instance, to calculate the leftmost pixel in row 25, first 
load the A register with the value at 'scrlo+25\ Add this value 
to the low byte of the hi-res screen base address. Next load A 
with *scrhi+25\ and add it to the high byie of the base ad- 
dress. TTiis resulting address is the leftmost byte (where X val- 
ues range from - 7) at row 25. It is then a simple matter to 
add in the value for the X component of the pixel. 

Note that this scheme uses the upper left comer of the screen 
as the origin (location 0.0), If you want to change this, simply 
reorder the data in the table (you can achieve some interesting 
effects by scrambling the data in the table, making the lighting 
of pixels unpredictable). Notice, as well, that I forced each 
half of ihis data table to be located at the start of a page ("scr- 
lo' is at $8100 and *scrhi* at $8200). While this is a waste of 
memory, it was done to demonstrate a point. If the first half 
(scrlo) of the table was simply placed into memory right after 
the code, there is a very good chance that part of it would lie 
on the same page as the code» and the rest on the next page. 
Since the combined size of scrhi and scrlo is more than 400 
bytes, a similar page split might happen to scrhi. The indexed 
addressing mode is used to access the table, which means that 
cycles are saved if the index does not cross a page when 
memory is accessed. Forcing alignment on a page was the on- 
ly way to insure the minimum cycle time would be used for 
access to this data. 

There are other differences between this code and the code in 
Listing 3- Instead of using a loop to shift a single bit over, the 
correct bit to set is calculated from a look-up table. The lower 
three bits of the X register are used as an index into this table. 
Since there are eight pixels to one byte on the hi-res screen^ 
the bytes in the table each have one of the possible eight bits 
set. Thus we can simply load this value in and use it 

The number of cycles used by this subroutine is only 75» in- 
cluding six cycles for a iSR instruction to get us into the code. 
Note that, unlike the previous routine, this 75 cycles does nol 
change with the value of the coordinates. We are guaranteed 
75 cycles every time we call it. 



The cycle count for this listing is quite a bit less than the num- 
ber used by Listing 3. Again, we standardize the cycle count 
by calling the new routine from BASIC. Using the same pro- 
gram as we did for Listing 3, but replacing the code at S8000 
with the code in Lisling 3, we gel 42418 cycles, an improve- 
ment of about 50% over the original basic program. 

The final version of a pixel plotter is shown in Listing 5. This 
represents a compromise between the versions in Listings 3 
and 4. It does not perform a straight calculation as in Listing 3, 
nor does it have a huge table of data as in Listing 4. 

This version exploits two more facts about the way the graphic 
screen is organized. The first fact is easy to pick up if you 
study the data table used by Listing 4: the low-order bytes re- 
peat themselves every 32 bytes. Thus, all we need is a small 
table to hold these 32 bytes, and some new way to calculate 
the high order byie for the offset. As it turns out, this is the 
second fact of graphic screen layout that we can exploit. Part 
of the high order byte can be calculated by simply using the 
upper five bits of the value passed to us in the Y register! By 
manipulating these bits, we can obtain the high order value for 
the leftmost byte offset. 

This 'manipulation' may seem very obscure at first. Examine 
the "scrhi' table of Listing 4 until you notice a trend. There are 
two observations we can make from these bytes. First, each 
byte occurs eight times in a row. Second, the value of one is 
added to each number after it has repealed - except after 32 
bytes have gone by; then two is added. To see what 1 mean, 
notice that *scrhi' starts off with eight zeroes. Then we add 
one. and we have eight ones. Add one again, and we have 
eight twos. Add one more to the byte value of the last row, and 
we have eight threes. That makes 32 bytes so fan Look at the 
next line - it contains eight fives. So, every 32 bytes, we add 
two to the current byte value in the table. 

While this roudne is quite a bit smaller than Lisling 4. it is 
slightly slower The number of cycles needed to execute is 
I M, including the JSR. The number of cycles is constant for 
any pair of coordinates. 

Again, for standardization, we will use the BASIC program we 
used with Lisdng 3. In Listing 5, however, the usage of regis- 
ters A and X is reversed, so the references to 780 and 781 in 
the BASIC code must be interchanged. Using CC to time this 
program, we find that it takes 42456 cycles to complete. This 
is still an improvement of about 50% over the original BASIC. 

These examples are not meant to be the final word on pixel 
plotters. In fact, I would enjoy seeing routines that could per- 
form this function faster than the ones shown. The real pur- 
pose of these examples is to show how cc was used as a tool. I 
was able to quickly count cycles, modify the routines, and 
count again. These routines are, for the most part, too fast to 
be timed by other means, and the timing from basjc would be 
nearly impossible to count by hand. Cycle counting allowed 
me a basis for comparison that I did not have before. 
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Some final notes on CycleCounter 

The major concept now is one involving the conversion of cy- 
cles inlo a time value. While CycleCounter will give you a 
precise number of cycles needed lo execute your program, it 
cannot tell you precisely how long (in terms of seconds and 
microseconds) it will take your program to run. There are sev- 
entl reasons for this- An obvious one, especially for program- 
mers, is the IKQ that occurs every 1/60 of a second. The C64 
operating system causes one of the hardware timers to inter- 
rupt nortnal program execution, saving the current stale of 
your program, and then performing necessary chores like read- 
ing the keyboard, updating clocks, etc. When the operating 
system has finished the interrupt, it restores your program to 
its previous state, and allows it to run again. Your code will be 
slowed by this constant, but transparent, inierruplion. 

Another reason an accurate time value cannot be given is due 
to a quirk in the relationship between the 6510 and the \\c \\ 
video chip. There are times - when sprites are on the screen, 
for example - when the video chip must use the system data 
bus more than normal to tnaintain the display screen. When 
this occurs, the chip will 'steaK the bus from the 6510 proces- 
sor for a short time. This causes a slight loss of processing 
speed. 

For these and other reasons. CC cannot give you a precise exe- 
cution speed in, say, seconds. What does CC give you then? 
The tlrsi way you can use CC is as a speed analysis tool. Re- 
gardless of any other interruptions, the code you write will be 
executed in a time that is directly proportional to the number 
of cycles that code uses. Put another way: more cycles needed, 
more time needed. You could thus say that, in most cases, the 
code with the fewer cycles will run faster. 

Secondly, although CC cannot give a accurate timing in sec- 
onds, you can get a close estimate by converting cycles to sec- 
onds. The actual clock speed of the C^64 is 1,022,730 cy- 
cles/second using NTSC, and 9S5,250 cycles/second for those 
using PAL. So. if your program took 100 cycles, you could di- 
vide KK) by the number of cycles per second to get an execu- 
tion value in seconds. To get an even more accurate value, you 
couid count the number of cycles the operating system inter- 
rupt code uses and add that in to your total cycle time. Of 
course, this varies, depending on such things as key presses 
and RS-232 activity. 

If you are interested, the C64's hardware timers (in the 6526 
CIAs) have the capability to count the cycles used as time goes 
by. While this may seem an appealing way to compare pro- 
grams, it introduces some new problems. For instance, the on- 
ly way to be sure that every program you test is getting the 
same treatment is to reset before each test. Furthermore, since 
you do not have control of things like the system clock or IRQ 
timing, there is no way lo keep out interruptions that could 
slow down your execution. There are ways around this, of 
course, but the main point I wish to make is that one must be- 
ware of hidden variables: When you are dealing in microscop- 



ic time values like cycles, it is very difficult to compare pro- 
gram execution times by actually running them. Nevertheless, 
this type of utility could have many uses - but that is easily the 
subject of another article. 

CycleCounter avoids some of the timing problems by abstract- 
ing each instruction to its best possible case, and allowing you 
to compare programs based on that. If the computer had no 
other chores to do - no iRQs. no bus stealing - then the execu- 
tion value in seconds you can calculate should be an accurate 
one. 

In closing. T hope that CycleCounter becomes a useful addition 
to your programming toolbox. The need for speed is never 
ending, especially as the smaller eight-bit computers are 
forced to compete with the faster 16-bit and 32-bit processors. 
It is up to all of us to make every cycle count. 

Listing 1. This subroutine uses 3342 cycles to complete. 



filll 



loopl 



stx Jfb 


sty jfc 


Ida »500 


Idy 1500 


sta [Sfb),y 


iny 


sta [5fb),y 


cpy ISff 


bne loopl 


rts 



;save low byte of bloc): in zero page 
;save high byte of block in aero page 
;Acc. holds value to store in blocli 
;3et index register to zero 
;do first byte in blocli 

;cK}ve indei pointer up one 

;3tuff value of Ace. into lennry 

;¥hen Y=FF we are done 

;not done yet, ,. 

;no*f we're done^ return to caller 



Listing 2. This subroutine uses 2583 cycles to complete, 

fill2 stx loop+1 ;aave low byte into STA instruction 

;save high byte into STA instruction 
;Acc, holds value to store in block 
;3et index register to zero 



sty ioop+2 
Ida fSDO 
tay 



loop2 sta SO000,y 
iny 

bne loop2 
rts 



;3ave value of Ace. into rKoory 
;iiLOve index pointer up one 
;keep going till IKY sets zero flag 
;noif we're done, return to caller 



Listing 3. Simple ML Pixe! Plotter 

; BA5FIX 

r 

; This ML subroutine is a very literal translation 
;of the pixel plotting routine found on pages 123-124 

;of the CBH Programrners Reference Guide. 
;Very little optimization has been done. 

• 

; nin cycles to execute; about 829 

; nai cycles to execute: about 998 

; includes 6 cycles for a JSR to get us here 



register usage on entry 



; a = if x<255, 1 if x>255 



; I = - 255 
; y = - 199 

h 

pntr = Sfb 



;a zero page pointer 
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' = 58000 

4 

r 

baspix sta pntr+1 
txa 
pha 
tya 



:add in a right any 
:put I into a 
jsave X for later 
;save y for later use 
;push y on stack 



here, ve will calculate the 

tB' lint {i/8}}) 
note that this is the same as 
(X and 248} 
txa ;noir a = x 

and tSffl mow a = X and 248 
sta pntr ;aave it 

now we are going to perform the 
calculation of 

int (y / 8) ' 320 
note ve can do this as 
(y and 248) • 40 



nxtlp2 tya 


;ooTe y into a 


and iSfS 


.miii off lower bits 


tay 


;use this value to add 


Idx 140 


rprepare to add in 40 tuaes 


loopl tya 


;iiove value to add in 39 tines into ace. 


clc 


; ready to add now.,. 


adc pntr 


;adding in y 40 tinies is saw as y * 40 


sta pntr 


;hold onto the new value! 


bcc nxtlpl 


;if no carry, sicip next instruction 


inc pntr+1 


;add 1 to hi byte of pointer 


nxtlpl dei 


;are we done yet? 


bne loopl 


;noi keep going f 


pla 


:get back value of y from stack 


and IS07 


:thi3 gives us y and 7 


clc 


,add this in, as well! 


adc pntr 


;addit 


Sta pntr 


;save it 


bcc nitlp3 


;skip it, if no carry, , , 


inc pntr+1 


;add 1 to hi byte 



now ve add in the base address of 
our hi-res screen, we only need the 
high byte, since it lEiust start on 
on the beginning of a page 
nxtlp3 ck ;prep for add 

Ida j|$20 .screen located at $2000 
adc pntr+1 :add it in 
sta pntr+1 ;and save it 

now, pntr and pntr+1 point to 
the byte we want in screen nieiiiory 
here, ve calculate vhich bit ve 

are going to turn on, 



pla 

and tS07 

sta hitlit 

Ida IS07 

sec 

she bitlit 



;get x froEn stack 

;gives us x and 7 

;save for our subtraction 

;ve'll subtract bit from 7 

;prep for subtraction 

:givaa us a = 7 - (x and 7) 

;ve'U use this value as a counter 



ve now use {x and 7) as a counter 

for shifting a single bit to the 

left. 

sec ;first time thru, carry gets pushed into ace, 

Ida (SOO ;atart out vith in ace. 



loop2 rol a ;shift single bit to left 

dey :a» we done yet? 

k^ii loop2 ;not yet, keep going! 



; finally, ve can access our byte 

; and turn our bit on 

Idy tSOD ;iulce our index = 
ora [pntr},y ;tum on our bit 
sta (pntr),y ;and save the change 
rts ;all done.. 



bitlit .byte 
,end 



;a variable 



Listing 4, Fas( ML Pixel Plotter 



FASTPX 

FA£TFX is a subroutine that is 
designed to light up a dot on the 
hi-res screen in about 75 cycles, 
including six cycles for a jsr to 
get us here. 

It should be called in the 
following manner: 

y = (0-199) y axis range 
X = (0-255) X axis range 

a = (0 or 1) if 1 > 255 

pntr = Sfb ;iero page pointer 



' = 58000 

first, calculate the offset for 

the row 

fastpx sta pntr+1 ;store upper byte of x 
Ida scrlOry ;get lo byte of offset 
sta pntr ;3et up lo byte of poijitar 
clc ;prepare for addition 

Ida scrhi,y :get hi byte of offset 
adc pntr+1 ;add to hi x 
sta pntr+1 ;set up hi byte of offset 

now ve can calculate lAat bit we 
will light up at our address, , 

txa ;nove in lo byte of t 

and IS07 ;get the bit to light up 
tay ;save it in y 

here we calculate the address 

of byte to modify, by adding in 

X coordinate and screen base 

txa ;get lo byte of x 

and fSfS ;make it a power of 8 
adc pntr :add x to offset 
sta pntr ; update offset 



; now add the hi byte and screen base 

Ida I&20 ; screen base at SZOOO 
adc pntr+1 ;add to offset 
sta pntr+1 ;update offset 



we now have the address to modify 
let's light up a bit in that bytef 

Ida table, y ;pick up the bit position to lite 

Idy »500 ;3et y index to 

ora (patr),y ;lite up that bit 

sta (pntr),y rand make change permanent 

rts ;gohoae... 

table byte $B0,S4O,$2O,Sl0,5Oe,5O4,S02,$Ol 
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* = saioo 

this d^ta file contains 
offsets to add to a screen base 
address, these offsets vill give 
you the address of the leftmost 
byte, in the y position, use the 
y value for an index 



scilo .byte 
.byte 
byte 
byte 

byte 
byte 
byte 
byte 

byte 
t^e 
byte 
byte 

byte 
byte 
byte 
t^e 

byte 
t^e 
byte 
l^e 



Soo.soi, 

S80,S81, 

5cO,Scl. 

SOO.SOl. 

340, S41, 

seo.ssi, 

5cO.Scl, 

500, SOI, 
S40,sn, 

$B0,S81r 
5c0,$cl, 

Soo,soi, 

S40,S41, 
580,581, 
5cO,Scl, 

500,501, 
540,541, 

590,581, 
5c0,5cl, 



byte 500,501, 
byte 340,541, 
byte 530,581, 

t^e ScO, Scl, 

fcyte SOO^SOl, 

byte S40,S41, 
= $8200 



S02,503,S04,S05,S06,507 
S42,543,S44,Sfl5,S46,S47 
582,583,584,585,586,587 
5c2,5c3,Sc4,Sc5,Sc6,Sc7 

502,503,504,505,506,507 
542,543,544,545,546,547 
592,583,584,585,536,587 

Sc2,5c3.5c4;?c5,Sc6,Sc7 

502,503,504,505,506,507 
542,543,544,545,546,5*7 
582,583,584,585,586,587 
Sc2,Sc3,5c4,5c5,Sc6,5c7 

502,503,504,505,506,507 
542,543,544,545,546,547 
582,583,584,585,586,587 
Sc2,5c3,5c4,5c5,Sc6,Sc7 

502,503,504,505,506,507 
542,543,544,545,546,547 
582,583,584,585,586,587 
Sc2,Sc3,5c4,5c5,Sg6,Sc7 

502,503,504,505,506,507 
542,543,544,545,546,547 
582,583,584,585,586,587 
5c2,5c3,5c4.5c5,5c6,5c7 

502,503,504,505,506,507 
542,543,544,545,546,547 



scrhi .byte 
.byte 
byte 
byte 

byte 
byte 
byte 
byte 

byte 
t^e 
^e 
t^e 

byte 
l^e 
byte 
byte 

byte 
byte 
t^e 
byte 

byte 
t^e 
t^te 
l^e 

byte 
byte 



0,0,0,0,0,0,0,0 

l,lrl,l,lrl,l,l 

2,2,2,2,2,2,2,2 
3,3,3,3,3,3,3,3 

5,5,5,5.5,5,5,5 

6,6,6,6,6,6,6,6 
7,7,7,7,7,7,7,7 
8,8,8,8,8,8,8,8 

50a, 50a, 50a, SOa, 50a, 50a, 50a, $0a 
50b,SOb,SOb,50b,50b,50b,SOb,SQb 
S0c,5Oc,SOc,50c,50c,5Oc,SOc,SOc 
50d,5Od,5Od,50d,50d,50d,5Od,5Od 

S0f,S0f,5Of,SOf,50f,50f,50f,5Of 

510,510,510,510,510,510,510,510 

511,511, 511, 5iirSii, 511, 511, 511 
512, 512, 512, 512, 51?, 512, 512, 512 

514,514,514,514,514,514,514,514 
515,515,515,515,515,515,515,515 
516, 516,516,516, 516, 516, 516,516 
517,517,517,517,517,517,517.517 

5l5r5l9r519,519,519, 519, 519,519 

5la,5la,Sla,Sla,5la,5la,Sla,5la 
51b, 51b, Sib, Sib, 51b, 51b, 51b, 51b 
Sic, 51c, 51c, 5lc, 51c, 51c, 51c, 51c 

Sle,Sle,5le,Sle,Sle,Sle,51erSle 
51f,51f,5U,Slf.Slf,5lf,5lfrSlf 



Listing 5. OpJimized ML Pixel Plotter 



Qumx 

This subroutine is designed to 
light a pixel on a hi-res screen 
in 114 cycles. This includes six 
cycles for a JSR to get us here. 
Values must be sent as follows: 

a = low X (0 - 255) 

I = high X (0 if a<255, else IJ 

y = y (0 - 199) 



pntr = 5fb ; low core pointer 
*=5B0OO 



first, we save stuff to use later 



guikpi pha 
tya 
pha 



;saTe low part of x 
;moTe row f into a 
;save row 



now we use fact that low byte of 
row offset repeats every 32 bytes 

and i5lf ;get number range of 0-31 

tay ,aov use as an index 

Ida lookup, y ;get lo byte of left column of row 

sta pntr ;set it up in lowcore 

here, we calculate the high byte 

of the row offset from screen base 
by lounging on the bits in y 



pla 


;get row 


clc 


;[Dake it ok to shift bits 


and f5£8 


;doiit move anything into carry 


ror a 


[divide by 2 


ror a 


; .-. by 4 


ror a 


; . . , by 8 


sta pntr4-l 


; upper byte of screen offset for y value 


and 15 £c 


;to prevent shifts into the carry 


ror a 


; divide by 16 


ror a 


; divide by 32 


adc pntrfl 


;add to upper byte 


sta pntrU 


;isake it official 


; now, we save the bit position we 


; will light up when after we calculate 


; the byte address 




pla 


;get low byte of x 


tay 


;hold it tensor arily 


and 1507 


,-the3e vill be the bits to light in byte 


pha 


;save then 



here, add in the value of the x 
coordinate. 



tya 
and f5fB 

adc pntr 
sta pntr 



get back low byte of x 
make it a power of 8 (nax of 224) 
carry still clear, add it 
niake change official 



now we add in the base of our 
hi-res screen 

txa ;get hi byte of x value 

adc 1520 ; start of hi-res screen— hi byte 

adc pntrU ;add to hi byte of offset 

sta pntr+l ;iDake it official 
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FD 1310 data 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


0, 


0, 




; get back our pi« 


il position, and 
















LG 1320 data 


49, 


19, 


50, 


51, 


52, 


53, 


51, 


55, 


56, 


57, 


65, 66 




; use it to look up value. 


















CC 1330 dats 


67, 


68, 


69, 


70, 


0, 


0, 


0, 


0, 


0, 


0, 


95, 197 


























BB 1340 data 


95, 


197, 


95, 


197, 


95, 


197, 


95, 


197, 


95, 


197, 


95, 197 


pU 




;get bit to light in byt 


:e 












CP 1350 data 


95, 


197, 


236, 


196, 


19, 


197, 


16, 


197, 


57, 


197, 


156, 197 


tu 




;u$e as index into table of bytes 










FD 1360 data 111, 


197, 


23, 


192, 


61, 


193, 


105, 


193, 


40, 


196, 


31, 192 


Ida litbit.x ;get value of 


byte 


to use 












BH 1370 dati 


29, 


192, 


231, 


202, 


61, 


193, 


63, 


193, 


13, 


192, 


157, 196 


^ 




^- 


















EH 1380 data 


79, 


193, 


31, 


195, 


255, 


255, 


109, 


195, 


147, 


195, 


170, 195 




; and finally, 


we are ready to light 
















NN 1390 data 193, 


195, 


228, 


195, 


11, 


196, 


224, 


193, 


46, 


196, 


253, 195 




4 

; up that pixel! 




















PB 1400 data 


65, 


68, 


67, 


65, 


78, 


68, 


65, 


83, 


76, 


66, 


67, 67 




1 m 






















DA 1410 data 


66, 


67, 


83, 


66, 


69, 


81, 


66, 


73, 


81, 


66, 


77, 73 


Idy ISOO 


;set index = 



















0;l 1420 data 


66, 


78, 


69, 


66, 


80, 


76, 


66, 


82, 


75, 


66, 


86, 67 


ora (pntr),y .create a ney 


byte 
















OC 1430 data 


66, 


86, 


83, 


67, 


16, 


61, 


67, 


76, 


68, 


67, 


76, 73 


■ V 

ata (pntr)ry ."store it ) 


















GD 1440 data 


67, 


76, 


86, 


67, 


77, 


80, 


67, 


80, 


88, 


67, 


80, 89 


J 






















Al 1450 data 


68, 


69, 


67, 


68, 


69, 


88, 


68, 


69, 


89, 


69, 


79, 82 


Its 




nmnp hone 


















NF 1160 data 


73, 


78, 


67, 


73, 


78, 


88, 


73, 


78, 


89, 


71, 


77, 80 


r 




J M 


















BF 1170 data 


74, 


83, 


82, 


76, 


68, 


65. 


76, 


68, 


88, 


76, 


68, B9 


litbit .byte $80,S40,S20.S10,SOfl,SOfl,S02,$01 












GD 1480 data 


76, 


83, 


82, 


78, 


79, 


90, 


79, 


82, 


65, 


80, 


72, 65 


h 

r 






















BB 1190 data 


80, 


72, 


80, 


80, 


76, 


65, 


80, 


76, 


80, 


82, 


79, 76 


lookup byte 1 


iOO, $01, S02.S03, 504,505, $06, S07 












SE 1500 data 


82, 


79, 


82, 


82, 


81, 


73, 


82, 


81, 


83, 


83, 


66, 67 


,t^e ! 


p40. 541, S42,S43, 544, 545,546.547 












OG 1510 data 


83, 


69, 


57, 


83, 


69, 


68, 


83, 


69, 


73, 


83, 


84, 65 


.byte ! 


580.581,582,533. 584,585,536, SB7 












01 1520 data 


83, 


81, 


88, 


83, 


81, 


69, 


84, 


65, 


88, 


84, 


65, 89 


.byte ! 


icO.Scl,5c2,Sc3,5c4,5c5,5c6.5c7 












FI 1530 data 


81, 


83, 


88, 


84, 


88, 


65, 


81, 


88, 


83, 


94, 


39, 65 


.end 






















FH 1540 data 


10, 


31, 


31, 


2, 


36, 


34. 


2, 


34, 


2, 


9, 


34, 34 
























0(4 1550 data 


2, 


13, 


31, 


34, 


2, 


28, 


1, 


6, 


1. 


39, 


38, 1 
























FI 1560 dita 


39, 


5, 


1, 


39, 


7, 


1, 


1, 


39, 


14, 


1, 


1, 39 


Listing' 6. ' 


Generator for CycleCounter at $C000 






EN 1570 data 


41, 


23, 


23, 


32, 


35, 


23, 


32, 


27, 


23, 


32, 


11, 23 


^—j^ 






















KF 1580 data 


23, 


32, 


15, 


23, 


23, 


32, 


12, 


0, 


0, 


40, 


37, 


JW 100 rem generator for "cc.cOOO" 
















EJ 1590 data 


40, 


27, 


0, 


10, 


12, 


0, 


0, 


10, 


46, 


0, 


0, 40 


FJ 110 ndS-'cc.cOOO": rem name of program 














KG 1600 data 


47, 


49, 


47, 


18, 


22, 


53, 


49, 


17, 


48, 


3, 


47, 49 


CG 120 nd=30a4: sa^ 


'«152: ch=331732 
















CF 1610 data 


47, 


48, 


55, 


17, 


51, 


17, 


31, 


29, 


30, 


31, 


29, 30 


RO 130 for i=: 


L to nd; read x 


















EC 1620 data 


51, 


29, 


50, 


31, 


29, 


30, 


4, 


29, 


31, 


29, 


30, 16 


EC 140 cli=di-] 


c nest 


















CE 1630 data 


29, 


52, 


31, 


29, 


30, 


19, 


17, 


19, 


11, 


20, 


26, 17 


ID 150 if chOO then prinf'data error" 


; stop 












00 1640 data 


21, 


19, 


17, 


20, 


8, 


17, 


17, 


20, 


11, 


17, 


17, 20 


FF 160 print"! 


iata ok, now creating file": print 












EE 1650 data 


18, 


43, 


18, 


43, 


24, 


25, 


43, 


33, 


18, 


43r 


24, 5 


■ 

CM 170 restore 




















DI 1660 data 


13, 


13, 


21, 


45, 


43, 


13, 


21, 


35, 


36, 


66, 


69, 32 


HE 180 open 8,8,1/ 


"0;"+fS 


















GJ 1670 data 


32, 


36, 


67, 


69, 


32, 


32, 


32, 


36, 


66, 


69, 


32, 32 


CF 190 print»8,chr$(sa/256)chrSfsa-intfsa/25S)); 












KI 1680 data 


32, 


65, 


69, 


32, 


32, 


32, 


32, 


36, 


82, 


69, 


32, 32 


AD 200 for i= 


I to nd; read x 


















JL 1690 data 


32, 


10, 


36, 


66, 


41, 


88, 


n, 


40, 


36, 


il 


41, 69 


CF 210 printta,clirS(x};: next 


















KP 1700 data 


32, 


36, 


66, 


11, 


88, 


69, 


32, 


36, 


66, 


44, 


89, 69 


m 220 close 8 




















CM 1710 data 


32, 


69, 


32, 


32, 


32, 


32, 


32, 


36, 


67, 


44. 


88, 69 


CO 230 prinf'i 


org file '",«;"' created 


H 














CP 1720 data 


32, 


36, 


67, 


14, 


89, 


69, 


32, 


10, 


36, 


66, 


41, 44 


CH 240 piint'this i 


jeneiatoT no longer needed." 












IH 1730 data 


89, 


67, 


89, 


67, 


76, 


69, 


32, 


67, 


79, 


85, 


78, 84 


OG 250 ; 






















HC 1740 data 


69, 


82, 


32, 


86, 


18, 


46, 


48, 


50, 


11, 


32, 


66, 89 


IL 1000 data 


76, 


92, 156, 16, 


206, . 


202, 


76, 


205, 


203, 


0, 


192, 





KE 1750 data 


32, 


68, 


65, 


86, 


73, 


68, 


32, 


83, 


65, 


7B, 


78, 69 


FF 1010 data 


0, 


0, 0, 0, 


0, 


0, 


0, 


0, 


1, 


2, 


0, 





MN 1760 data 


82, 


13, 


0, 


13, 


83, 


81, 


65, 


82, 


81, 


32, 


65, 68 


JK 1030 data 


0, 


0, 0, 0, 


0, 


0, 


0, 


0, 


0, 


0, 


79, 


46 


OD mo data 


68, 


82, 


69, 


83, 


83, 


17, 


60, 


67, 


82, 


62, 


32, 5B 


IP 1030 data 


0, 


0, 0, 19, 


21, 


0, 


75, 


2, 


26, 


0, 


0, 


12 


CE ITSO data 


36, 


0, 


13, 


69, 


78, 


68, 


32, 


65, 


68, 


68, 


92, 69 


OP 1040 data 


14, 


0, 34, 101, 


0, 


0, 


0, 


60, 


62, 


0, 


74, 


220 


ID 1790 data 


83, 


83, 


17, 


66, 


47, 


60, 


67, 


82, 


62, 


32, 


58, 36 


GI 1050 data 


0, 


0, 0, 212, 


87, 


0, 


14, 


16, 


0, 


0, 


19, 


19 


EF 1800 data 


0, 


13, 


69, 


88, 


69, 


67, 


85, 


81, 


69, 


32, 


73, 78 


IB lOeO data 


21. 


0, 76, 2, 


26, 


0, 


12, 


12, 


14, 


0, 


31, 


101 


FE 1810 data 


83, 


84, 


82, 


85, 


67, 


84, 


73, 


79, 


78, 


83, 


63, 40 


EB 1070 data 


0. 


0, 0, 60, 


62, 


0, 


74, 


220, 


0, 


0, 


0, 


212 


DB 1820 data 


89. 


17, 


78, 


17, 


60, 


67, 


82, 


62, 


41, 


32, 


58, 


AF lOeO data 


87, 


0, 78, 46, 


0, 


0, 


0, 


19, 


21, 


0, 


75, 


2 


CE 1830 data 


13, 


80, 


82, 


73, 


78, 


81, 


32. 


81, 


82, 


65. 


67, 69 


LC 1090 data 


26, 


0, U, 12, 


H, 


0, 


34, 


229, 


0, 


0, 


0, 


60 


LF 1810 data 


32, 


10, 


89, 


17, 


78, 


47, 


60, 


61, 


82, 


62. 


41, 58 


IH 1100 data 


62; 


0, 71, 220, 


0, 


0, 


0, 


212, 


87, 


0, 


78, 


46 


IP 1850 data 


0, 


13, 


65, 


32, 


32, 


88, 


32, 


32, 


89, 


32, 


32, B3 


U 1110 data 


0, 


0, 0, 19, 


21, 


0, 


76, 


2, 


26, 


0, 


53, 


12 


SE 1360 data 


81, 


32, 


83, 


80, 


13, 


0, 


13, 


69, 


82, 


82. 


79, 82 


BG 1120 data 


14, 


0, 34, 229, 


0, 


0, 


0, 


60, 


62, 


0, 


74, 


220 


ON 1870 data 


58, 


32, 


85, 


78, 


75, 


78, 


79, 


87, 


78, 


32; 


79, 80 


CC 1130 data 


Or 


0, 0, 212, 


87, 


0, 


0, 


46, 


0, 


0, 


19, 


19 


NK 1880 data 


67, 


79, 


68, 


69, 


32, 


65, 


84, 


32, 


36, 


70, 


69, 68 


OB 1140 data 


1% 


0, 74, 0, 


14, 


0, 


12, 


12, 


12, 


0, 


34, 


102 


AJ 1890 data 


67, 


0, 


13, 


84, 


19, 


81, 


65, 


76, 


32, 


35, 


32, 79 


FC 1150 data 


0, 


0, 60, 60, 


68, 


0, 


74, 


93, 


74, 


0, 


0, 


85 


IH 1900 data 


70, 


32, 


67, 


89, 


67, 


76, 


69, 


83, 


32, 


B5, 


83, 69 


KN 1160 data 


0. 


0, 2, 46, 


2, 


0, 


19, 


19, 


19, 


0, 


71, 


2 


JF 1910 data 


68, 


58, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 32 


DN 1170 data 


74, 


0, 12, 12, 


12, 


0, 


34, 


229, 


0, 


0, 


60, 


60 


in 1920 data 


32, 


0, 


32, 


61, 


199, 


201, 


0, 


240, 


1, 


0, 


32, 72 


BI 1180 data 


68, 


0, 74, 220, 


74, 


0, 


212, 


212, 


220, 


0, 


2, 


46 


KD 1930 data 203, 


169, 


13, 


32, 


210, 


255, 


173, 


28, 


192, 


240, 


7, 32 


KE 1190 data 


Or 


0, 19, 19, 


21, 


0, 


74, 


2, 


74, 


0, 


12- 


12 


HE 1940 data 175, 


198, 


201, 


1, 


240, 


U2, 


32, 


209, 


198, 


173, 


25, 192 


BL 1200 data 


14, 


0, 34, 229, 


0, 


0, 


0, 


60, 


62, 


0, 


14, 


220 


U 1950 data 240, 


7, 


18, 


102, 


173, 


28, 


192, 


210, 


97, 


32. 


14, 199 


GB 1210 data 


Or 


0, 0, 212, 


87, 


0, 


2, 


46, 


0, 


0, 


19, 


19 


IB 1960 data 


32, 


184, 


197, 


208, 


5, 


32, 


185, 


198, 


176, 


207, 


32, 242 


NH 1220 data 


21. 


0, 14, 2, 


74, 


0, 


12, 


12, 


14, 


0, 


34, 


229 


HH 1970 data 197, 


173, 


104, 


193, 


11, 


2, 


240, 


11, 


32, 


155, 


198, 208 


EB 1230 data 


0, 


0, 0, 60, 


62, 


0, 


74, 


220, 


0, 


0, 


0, 


212 


IL 1980 data 


22, 


32, 


226, 


196, 


231, 


231, 


234, 


32, 


251, 


198, 


186, 142 


OB 1240 data 


87- 


0, 1, 2, 


1, 


0, 


I, 


1, 


2, 


1, 


I, 





H' 1990 data 


17, 


192, 


32, 


29, 


199, 


32, 


43, 


199, 


56, 


176, 


20, 152 


II 12S0 data 


2, 


2, 1, 176, 


144, 


112, 


80, 


208, 


210, 


16, 


48, 


32 


KG 2000 data 


21, 


42, 


168, 


185, 


150, 


193, 


141, 


193, 


196, 


200, 


185, 150 


DB 12E0 data 


96, 


76, 108, 64, 


0, 


36, 


32, 


32, 


32, 


32, 


32, 


32 


BA 2010 data 193, 


141, 


194, 


196, 


32, 


0, 


0, 


113, 


101, 


193, 


41, 1 


CK 1270 data 


32, 


32, 32, 32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32 


KM 2020 data 210, 


3, 


32, 


31, 


202, 


32, 


171, 


203, 


113, 


104, 


193, 41 


HK 1280 data 


32, 


32, 32, 32, 


32, 


32, 


32, 


32, 


32, 


32, 


32, 


32 


CG 2030 data 


1, 


240, 


3, 


32, 


61, 


200, 


169, 


0, 


240, 


132, 


32, 171 


FB 1290 data 


32, 


32, 32, 32, 


32, 


32, 


32, 


32, 


13, 


0, 


0, 





FO 2010 data 202, 


0, 


32, 


25, 


199, 


32, 


11, 


199, 


32, 


236, 


19B, 96 


JK 1300 data 


0, 


0, 0, 0, 


0, 


0, 


0, 


0, 


0, 


0, 


0, 


32 


KM 2050 data 104, 


168. 


101, 


170, 


165, 


251, 


208, 


2, 


198, 


252, 


165, 252 


Transactor 
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I Do Windows (on the C128) 



A program for paneless print positioning 



by Jim ButterlieJd 

Copyright © 1988 Jim Bufferfield 

The usual way to set up a screen window on the CI28 is to use 
the command window, il^s easy and natural, and you can set 
up the size and other details on the spot. 

But WINIXJW has its limitations. It seems to be devised for a 

one-lime setup. When you enter the window. youMI be at its 
top; great for clearing the area and starling a new display. But 
it's not too handy it" you want to add new information to the 
bottom of an existing window. 

1 suppose you could get around this with the Escape sequence, 
CHRS{27)+"W". This would scroll the window down, leaving 
space on the lop line for the new information. So, print 
CHR$(27)+"W"+"NEWSTUFF" would prlnl newstuff on a 

fresh line at the top of the window. But it seems unnatural for 
the screen to scroll that way. 

There's another approach to doing windows. It involves using 
the ESC-T("top") and ESC^B ("^bottom") sequences. Here ^s the 
idea: if you place the cursor at the desired lop/left positioning 
of the window, and then print ESC-T, thai part will be set... then 
you can move the cursor to the bottom/right and print ESC-B to 
fix the rest of the window. And as a byproduct of this method. 
you'H be positioned at the bottom of the window... a new line 
of data will scroll previous material upward. 

This method also works on the Plus/4 and Commodore 16, 
which don't have a WINDOW command. They do, however, 
recognize the ESC codes, as does the B-12S. 

Program''windowl28" demonstrates this way of doing things. 
A series of numbers (your choice) are generated. If the number 
is prime, it will be put into Ihe right-hand window. Otherwise, 
it is tested for division by two, three, five, and seven, and put 
into the appropriate window depending upon the smallest divi- 
sor. If the number is nol prime, but has a divisor higher than 
seven, it's put into a window labelled high. 

Here's how the program sets up (he various windows. It first 
places the cursor a( the appropriate top/left position, and then 
prints W$. Note that W$ is defined in line 270; it contains all 
Ihe ingredients for making a window. 



The first part of WS. line 270, is CHR$(27)+"T". That fixes the 
top/left part of the screen at wherever Ihe cursor is located. 
Next, WS contains cursor movements... a number of cursor- 
rights followed by some cursor-downs. The cursor will now be 
moved a fixed distance to the desired bottom-right position... 
at which time, W$ fixes this point with a CHRS(27)+^^B". The 
window is sized, and Ihe cursor is at the bottom. 

The program starts all windows at the same row, but positions 
the window horizontally with a tab command in line 610. De- 
pending on the value of variable K (1 to 6), the window will 
be set up at its proper location across the screen. Note that 
right after the tab, we print WS and bring the window into ex- 
istence. 

Windows are exited by printing two successive '*homh" char- 
acters. YouTI see this in line 600, which is where we start to 
set up a new window, and line 640, where the program ends. 
(We really wouldn't want "READY." to print within our win- 
dow). 

About the factor calculalion: The loop from line 300 to 630 
walks through the range of numbers the user has requested. 
Array F() contains a list of factors; two, three, five, and seven, 
and the loop from 320 to 350 tries them all. 

Before we do this trial division, however, we do a special 
check for the 'root factor.' For example, two divides by two... 
but we don't want to put ii in the 'twos' column, because it's 
prime. So hne 310 tests for these low numbers. 

If we don't find a factor of seven or lower, we must try trial di- 
vision. The smallest possible factor is now eleven, and the 
highest is the square root of the number in question. We need 
to try odd numbers only... and this we do in the loop from 390 
to 420. 

The program is set up to use a 40-'Column screen. Tf you have 
80 columns, you might like to try modifying the program to 
allow more columns... or to make the exisling columns bigger. 



The listing "windowllS" appears on page 53 . -Ed. 



□ 
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RS-232 Hardcopy 



Talking to serial printers 



by Joseph Buckley 

I am a member of the tiny minority of Commodore users who 
happen to have an RS-232 serial printer. Since it seems to me 
that 99.5% of the software written ignores this possibihly, I 
usually find myself either being forced to customize the soft- 
ware, or just doing without. 

For some time 1 have wanted a program that would allow me 
to redirect the printer output of both basic and assembly pro- 
grams from device #4 to device #2 transparently, without re- 
sorting to altering the program- My first approach was to patch 
into Ihe vector IBSOUT ($0326) and intercept the output there, 
but 1 never could figure out why I would always get a *?device 
not present' error. 

Last August, the sysop of the Programmer's SlG on Quantum 
Link announced a contest for writing articles to be placed on- 
line. This was the perfect excuse to finally get the program 
running. I sat down and worked on puzzling it ouL After what 
couldn't have been more than two minutes the answer just un- 
folded before me: My mistake was intercepting the vector IB- 
SOUT, when 1 should have been intercepting the vector lOPEN. 

Page $03 in the Commodore 64 holds the indirect vectors for 
the operating system I/O routines as a point for patches to get 
hold of, and modify, those routines. What must be done in this 
case is to alter the vector lOPEN ($031A) to intercept all calls 
that will OPEN to device #4, the serial port printer, and open in- 
stead device #2, the RS-232 port. 

At this point, the call to OPEN will check FA ($BA) to see which 
physical device is to be used; if it is not #4, it continues on its 
merry way. If it is #4, it will change va from $04 to $02, Ihe 
RS-232 device. It will also set the baud rate at S0293, One oth- 
er necessary change is to modify the RS-232 output buffer 
pointer. ROBUF ($F9), to point to an unused block of 256 bytes 
of free memory. Now we can actually open the logical file as 



if no change had been made. When finished, we will return to 
the callen 

The assembly code to redirect the output is as follows: 



patch! 


Ida 


$ba 


; check current device 




cmp 


#$04 


; is it a printer? 




bne 


patch 1 a 


; no? then ignore patch 




Ida 


#$02 


; yes, redirect to RS-232 port 




sta 


$ba 


; new device 




Ida 


#$07 


; baud rate (600) 




sta 


$0293 


; set baud 




Ida 


#<bulT 


; buffer address 




Idx 


#>buff 


; may change 




sta 


$f9 






stx 


$fa 




patch I : 


1 jsr 
clc 


openfl 


; open the logical file 




rts 




: done 



The address of OPENFL is loaded with the initial value of 
lOPEN. This will allow multiple patches to run concurrently. 

While you will now no longer generate a '?device not present' 
error if there is no device #4, having no device #2 will not 
cause an error either The computer will carry on whether or 
not your printer is powered up. 

Most RS-232 printers will also need linefeeds in addition to 
each carriage return sent to it. (One thing improperiy stated in 
the Reference Guide is that a logical file number which is 
greater than 127 adds a linefeed. While this is true for BASIC, 
ML calls to $FFD2 make no provision for this,) To handle this 
problem, another patch is needed at ibsout ($0326). This will 
add any linefeeds as well as PETASCn to true ASCU conversions 
if needed. 
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palch2 



sta 

Ida 

cmp 

bne 

Ida 



temp 

$9a 

#$02 

oul2 

temp 



cmp #$0d 
bne pa(ch2a 
Ida #$0a 
jsr pmtit 
Ida #$0d 



outl 
out2 



sec 

bcc 

cmp 

bcc 

cmp 

bcs 

clc 

adc 

bne 

cmp 

bcc 

cmp 

bcs 

sec 

sbc 

bne 

cmp 

bne 

Ida 

sta 

Ida 

jmp 



outl 

#$4 1 
patch2b 
#S5b 
patch2b 

#$20 
outl 
#$cl 
patch 2c 

#$db 
patcti2c 

#$80 

outl 

#$14 

outl 

#$08 

temp 

temp 

pmtit 



; save A 

; check current device 

; is is 2? 

; no, ignore patch 

; restore A 

; is it a C/R? 

; no, skip LF 

; LF ($00 / no LF) 

; send LF 

; the old C/R patch2a 

;CLCforPetASCn 

; send TrueASCli 

: <a?, yes, skip 

; >z?, yes, skip 

; make TrueASCil 
; exit patch 2b 

; <A?, yes, skip 

; >Z?, yes, skip 

; make TrueASCil 
; exit patch2c 
;CBM delete? 

; no, exit 

; make TrueASCil backspace 

; save A 

; restore A 

: print/exit 



The address of prntit is loaded with the initial value of ib- 
SOUT ($0326) to allow for other patches, while TEMP is any 
free byte of RAM. 

The SEC at PatCHSa acts as a flag for the ASCii conversion to 
follow. If no conversion is needed^ then either delete the code, 
or put a CLC in its place to branch around the conversion. 

What follows is the BASIC loader for the code. It is written to 
be relocatable by changing the value of ad. You will need ap- 
proximately 352 bytes for this routine, since the 256 byte RS- 
232 output buffer resides at the end of the code. It has also 
been commented so that it can be easily customized to suit the 
application. 

Once run, you merely load another program under it and all 
output to device #4 will be redirected to device #2. As long as 
the new program doesn't do a major rework to the system, or 
use the two bytes $F9-FA, and you can find a place to store the 
code and buffer, youMl be all right. As usual. RUN/stop- 
RESTORE will reset the indirect vectors to their default values 
and disable the patches. 

By the way, I managed to place second in the article contest! 



JE 
JE 
DN 

MJ 
JL 
GE 
HO 
GJ 
PF 
LA 
JH 
OB 
HL 
FE 
HA 
GE 
GD 

m 

EG 
AH 
DH 
BK 
DL 
HN 

m 

KK 

CJ 
ND 
IK 
FF 
BG 
GO 
LJ 
FD 
BC 
JD 
GI 
BG 
HC 
HN 
MC 
PI 
OG 
ED 
BA 
HE 
ND 
GE 
HD 
GJ 
IH 



10 rem* r3232 printer driver for c64 

20 rem* redirects data for device #4 to 
30 rem* rs232 port (device #2) 

40 : 

100 ad=49152 

110 for t=0 to 94: read x: poke 49152+t;X: next 

120 : 

130 rem set jmp address for open 

140 ol=pee]c (794): oh=peek (795} 

150 poke ad+24,ol: poke ad+25,oh 

160 ali=int (ad/256): poke 794,ad-[256*ah) : poke 795, ah 

170 : 

180 rem set r3-232 output buffer address 

190 bh=int([ad+96)/256): bl=ad+96-(256*bh) 

200 poke ad4-16;bl; poke ad+18,bh 

210 : 

220 rem set baud rate 

230 poke ad+ll;7 

240 : 

250 rem set teiiporary storage 

260 sh=int(!ad+95)/256): sl=ad+95-(sh*256) 



poke ad+30,sh 
poke ad+39,sh 
poke ad+88,sh 
poke ad+91,sh 



270 poke ad+29,sl: 

280 poke ad+38;Sl; 

290 poke ad+87,sl; 

300 poke ad+90,$l; 

310 : 

320 rem add linefeed 10 yes/O no 

330 poke ad+45.10 

340 : 

350 rem set ascii conversion flag (56 yes/24 no) 

360 poke ad+51,56 

370 : 

380 rem set jn^ address for print 

390 pl=peek (806): ph=:peek (807) 

400 poke ad+47,pl: poke ad+48,ph 

410 poke ad+93,pl: poke ad+94,ph 

420 ph=int({ad+28)/256): pl=ad+28-(256*ph) 

430 poke 806, pi: poke B07,ph 

440 : 

1000 data 165, 186, 201. 4, 208. 17, 169, 2 

1010 data 133, 186, 169, 7, 141, 147, 2, 169 

1020 data 96, 162, 192, 133, 249, 134, 250, 32 

1030 data 74, 243, 24, 96, 141, 95, 132, 165 

1040 data 154, 201, 2, 208, 52, 173, 95, 192 

1050 data 201, 13, 20B, 7, 169, 10, 32, 202 

1060 data 241, 169, 13, 56, 144, 32, 201, 65 

1070 data 144, 9, 201, 91, 176, 5, 24, 105 

1080 data 32, 208, 19, 201, 193, 144, 9, 201 

1090 data 219, 176, 5, 56, 233, 128, 208, 6 

1100 data 201, 20, 208, 2, 169, B, 141, 95 

1110 data 192, 173, 95, 192, 76, 202, 241 



□ 
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StarCart 



Computing the relative positions of stars 



by Slephen Shervais, Jr. 

Copyright ® 1987 by Stephen Shervais, Jr. 

For many applications, aiid for most amateur purposes, the 
standard astronomical coordinate system. Right Ascension and 
Dechnation, is ideal. Since the sky appears to be a sphere ro- 
tating about a pole, polar coordinates exactly match the view* 
and portray relative positions of stars with a minimum of fuss 
and distortion. Even the quirky modifications which as- 
ironomers have made to the simplest polar coordinate system - 
using hours instead of degrees of longitude and measuring 90 
degrees each way from the equator instead of 360 degrees 
from one pole - even these have good practical historical rea- 
sons behind them. And when our concerns become three- 
dimensional and the positions of stars relative to the Sun be- 
come important. Right Ascension. Declination, and Distance 
still give us all the infonnation we need. The system oniy be- 
comes unwieldy when we need to discuss the relative posi- 
tions of stars to each other. Then we find ourselves trying to 
compare two distances and four angles and wondering why we 
have a headache. 

There are a number of reasons why we might wish to look at 
relative star positions. We might be interested in the distribu- 
tion of different types of stars, or be trying to decide just 
where the Sun lies in relation to the rest of the Orion Ann of 
the Galaxy. We might be building a three-dimensional map of 
the Solar Neighborhood, or even a Galactic Orrery. Fortu- 
nately, our old friend the Cartesian coordinate system (X, Y, 
and Z axes at right angles to each other) is available to help 
compare the distances between the stars. Using Cartesian co- 
ordinates, calculating distances is only a matter of solving the 
Pythagorean Theorem: D^=X2+Y^'f-Z^ The hard part is getting 
from astronomical to Cartesian without going mad. 

Enter the computer. The formulae for converting polar to 
Cartesian coordinates are relatively simple, and available in 
any good book on analytic geometry: 

X=Distance * Sin(Right Ascension) + Cos(Decli nation) 
Y=Distance * Sin(Right Ascension) + Sin(Declination) 
Z^Distance * Cos(Right Ascension) 

There are three pitfalls to be avoided when getting your com- 
puter to do the job for you. First, you have to be sure to con- 
vert the astronomical data to true polar coordinates. Second, 



and simultaneously, you must remember that your computer 
works in radians, not degrees. Finally, you must be careful in 
data entry formats so that your program is convening the num- 
bers you think it is converting, and in the direction you want 
them to go. 

The following program will allow you to create a file of Carte- 
sian coordinates for any (reasonable) number of stars, then 
print out either the coordinates themselves, or the distances 
from each star to all the others. Line 200 starts everything off 
by defining a function to convert degrees and minutes to deci- 
mal degrees (or hours and minutes to decimal hours), while 
lines 220-310 serve as the menu function. Lines 340-510 take 
in the standard astronomical information, check to see that it is 
correct (more precisely, thai it is what you intended to type), 
and convert the positional data to radians. Note that the input 
format requires a decimal lo separate the hours or degrees 
from the minutes; those who use decimal degrees or hours 
must modify line 200 so that lines 500 and 510 will give the 
correct answer. 

The program then jumps successively to two subroutines 
which convert the coordinates to Cartesian (lines 570-630) and 
then output a sequential file to disk (650-740). 

You now have a sequential file on your disk which contains 
both the original input data and the Cartesian coordinates. If 
you rerun the program and ask for a coordinate output, lines 
760-950 will read the file from the disk, and hnes 970-1100 
will print it out. The subroutine on lines 1120-1320 is the in- 
teresting one. It lakes the data from the file, computes the dis- 
tance between each star and every other slar, and prints out the 
result. Be warned, the length of the printout grows very 
rapidly as you add stars to the file. Users might want to add a 
line after 1110 that asks for a maximum distance (i.e. only 
print stars closer to each other than five light years), and put 
an IF/THEN statement into line 1210 so the program will re- 
spond accordingly. 

There are limitations to the program as written, and users may 
wish to write additional subroutines to overcome them. One 
limitation is that you have to tell the program how many 
records to read, which means you must either remember the 
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number or remember where you wrote it down. This presents 
the reader with the opportunity to write a subroutine that will 
read the ftle and count how many records are there. Another 
limitation is that there is no provision for inserting additional 
records; you must start over each lime. Finally, the cooordi- 
nate system is aligned with the plane of the Ecliptic (defined 
by the orbit of Earth around the Sun), a direction which has al- 
most no significance in the greater scheme of things. A truly 
fun project would be the addition of a subroutine which would 
convert the astronomical (ecliptic) coordinates to the galactic 
latitude and longitude system. The key problem there is to find 
a way to resolve the quadrant ambiguities which result. This is 
left as an exercise for the reader. 

StarCart 1.0: Astronomical to Cartesian coordinate conver- 
sion program for determining relative positions of stars. 



CE lOO 

flK XID 

ID 120 

FI 130 

FB 140 

JC 150 

DB 160 

FA no 

FL leo 

KG 190 

IC 200 

KF 210 

GH 220 

IB 230 

DD 24D 

m 250 

OF 260 

AE 270 

L£ 2B0 

10 290 

BC 200 

BO 310 

AE 320 

AL 330 

E6 340 

DG 350 

DG 360 

MA 370 

5K 380 

IN 390 

CO 400 

BI 410 

KN 420 

AO 430 

KI 440 

EB 450 

DG 460 

JK 470 

DE 4 BO 

NJ 490 

HK 500 

PL 510 

CI 520 

CB 530 

PP 540 

CE 550 

HB 560 

CC 570 

DO 500 

JD 590 

KP 600 

FO 610 

BB 620 

CJ 630 

EO 640 

BO 650 

AC 660 



rem atarplot 1.0 

rem copyright @ 1937 

rem by Stephen ahervais jr 

rem 4868 langer In 

rem Hoodbridge, va, 22193 

rem cornpuserve 72060,573 

print'this program is designed to compute" 

print'the distance between stars near the sun" 

prinf'ln cartesian coordinates aligned with" 

print'the plane of the ecliptic" :print 

def fna(q)i[int(q)/57.296]ft[q-int{q))/60/57.296) 

rem **** input or output '**'■ 

prinf'do you wish to create a new file or print out an old one?" 

print 

print"l. new file" 

print"2. old file: cartesian coordinates" 

print"3. old file: distances" 

print 

get alS: if al$="" then 290 

if alS="l" then gosub 340 

if al$=''2" then qo9ub760: gosul>970 

if al$="3" then gosub760: gosubll20 

end 

rem **** input nev file *•** 

inpuftotal number of star 3ysteiiis";sl:3l=al-l 

dim s$(3l), s(sl;a} 

for t=0 to si 

print"{rvs off}syEtem";t+l 

input "system name ";a$(t} 

input'right ascension ";s{t,0) 

input "declination " ;a {t, 1) 

input "distance, ly ";s[t,4) 

rem "*'• error check **** 

print 

name "; sS(t} 

r.a. "; ait,0} 

dac "; att,lj 

dist ": aft, 4) 

lnput"is this correct (y/n) yfleft} (left) {left}":a2S 

if a2$<>chrS(a9) then 370 

s{t,2}=fna(3it.0))n5 

s(t,3)=fna{s(t4n 

gosub 5?D:rem '*• lyz coords *** 

aext t 

gosub 650:r6m " output to fil* ** 

return 

rem '* ecliptic cartesian conv ** 

x=sttr4]*sin{[90/57,296]-s(t,3j)'cosis(t,2)) 

s{t,5)=x 

y=s(t,4)*ain( (90/57-296) -8 [tJH*sinis(t, 2)) 

s[t,6)=y 

i=s(tJ)'cos((90/57.296)-»(t,3)} 

s(t,7]=z 

return 

rem *•* output to dislt *** 

input "new file name'";a3S 

openl4,8,14/'0tHa35+".s,w" 



print "check: 
print" 

print" 
print" 



JJ 

PL 
EH 
CC 
FK 
AN 
KE 
AA 
BE 
OG 
PL 
01 
KB 
JB 
KF 
LI 
AH 
BB 
FF 
BG 
KM 
LG 



670 for t=0 to si 

680 printfll4r8$(t) 

690 for i=0 to 7 

70O print|14,stt,i) 

710 next i 

720 next t 

730 print|14:closel4 

740 return 

750 rem *** input from disk '** 

760 input "old file name ";a35 

770 print"do you want to output to screw, 

730 print"or printer?" : print 

790 print"l, output to screen" 



800 print"2, output to printer" 

BIO get bl5: if blS=:"" then 810 

820 if blSo'l" and blS<>"2" then 810 

B30 print 

840 input "number of star syatenia";sl:al=sl-l 

850 if s<0 then return 

860 dim 35(sl), a{sl.a) 

870 openlQ,8,l0,"0:"+a3S+",s,r'' 

880 for t=0 to si 
JF aSO input|10,sStt) 
GE 900 for i=0 to 7 
ML 910 input|10,stt,i) 
HH 920 next i 
CK 930 next t 
HP 940 print§10:closelO 
CH 950 return 

GA 960 rem *•* ecliptic output **• 
PI 970 open4,3; if blS="2" then close4: open4,4 
PH 9S0 for t=0 to si 
KK 990 printt4 
AP 1000 printi4,sS(t) 
AF 1010 printM, "right ascension ";s(t,0l;"hours. minutes' 



OG 1020 print|4," 

IE 1030 printi4," 

JG 1040 printi4," 

HH 1O50 print|4," 
FI 



GI 
ID 
OP 
IG 
HI 
FC 
JI 
PG 
LD 



OE 
JA 
LG 
IL 
FH 
LA 
NA 
CP 
JA 
AC 



1060 
1070 

1080 
1090 
1100 



print|4," 



declination ";s{tjlj ; "degrees. minutes" 
distance= "ra(t;4) ; "light years" 
x= ";s(t,5);''Iight years" 
y= ";s[t,6};"light years" 
z= ";s(t,7);"light years" 
if blS="l" then gosub 1340 
nejtt t 

print S4: close 4 
return 
1110 rem *** distance output *** 
1120 open4,3: if bl$="2" then closeJ : open4,4 
1130 print 14 /'distance from sun to ":print 
1140 for t=0 to si 

1150 printt4,sSEt);tab{25-len{sS{t)));s(t,4) 
MH 1155 if bl5="l" then gosub 1440 
II 1160 next t 

1170 print|4:close4 

1180 print:input"Biaxinum trip distance ";d2:print 

1190 open4,3; if blS="2" then close4: open4,4 

1200 for t=0 to sl-1 

1201 gosub 1470 

1210 printf4/'distance fron ";sS{t);" to:":print:b2=0 
1220 for u=t+l to si 
1230 xl=3(t,5)-s(u,5);H2=xl*xl 
1240 yl=:s(t,6)-s(u,6):y2=yl'yl 
1250 zl=sit,7)-slu,7):z2=zl*il 

KH 1260 dl=sqr[x2+y2+z2) 

EF 1270 if dl<d2 then printi4,s$fu) ;tab(25-lenfsS (u) )) ;dl 

JF 1280 if blS="l" then gosub 1440 

HA 1290 next u 

AF 1300 print;next t 

KH 1310 print*4;close4 

BE 1320 return 

OE 1330 rem '""screen counter*'** 

CK 1340 b2=b2+8 

MM 1350 if b2=24 then gosub 1370 

MG 1360 return 

KD 1370 print"hit any key to continuejupj" 

EP 1380 get b2S;if b2S="" then 1380 

OJ 1390 b2=0; return 

KO 1440 b2=b2+l 

HC 1450 if b2=22 then gosub 1470 

AH 1460 return 

OJ 1470 print"hit any key to continue { up | " 

MF 1480 get b2S:if b2S="" then 1480 

GF 1490 print;b2=0: return 



□ 
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Disabling "iO" on the 1581 



A peek at the vectored operating system 



by M.Garamszeghy 

One of the nice features of the 1581 is its ability to use sub- 
directories (or. more correctly, disk partitions) to divide the 
large SOOK disk space into smaller, more manageable chunks. 
However, this feature does not work with all commercial soft- 
ware (such as various versions of PaperClip, Pocket Writer, 
etc., on both the C64 and CI 28) because of the annoying habit 
of such software to log-in the drive with an *'iO" command 
before reading or writing a document tiie. On the 1581, the 
"iO" command is not only superfluous for disk log-ins, but 
will also reset the directory partition back to the normal or 
'root' directory area, thus negating any previously made parti- 
lion selection. 

Fortunately, there is a way to de-activate the 'MO" command 
without interfering with other operations of the 1581, thus giv- 
ing full partition support for virtually all software. The tech- 
nique outlined below can be extended to other operating sys- 
tem functions such as validate, 
SCRATCH and new for example. 



The operating system of the 1581 
drive is unusual amongst Commodore 
disk drives in that the major functions 
are accessed indirectly through ram 

vectors. This means that you can trap 

the vectors and replace the code in the 

drive ROMs with code of your own devising. The ample RAM 
and buffer space of the 1581 also favour such custom pro- 
gramming. 

On the 1581, operating system calls are made via a two step 
jump. The various routines are normally accessed by JSRing or 
jMPing to a table of addresses beginning at SFFOO of the disk 
drivers ROM. Each entry in the table consists of an indirect jmp 
(xxxx) instruction, where xxxx is an address of a location in the 
drivers RAM that contains the real address for the routine to be 
executed. This address, or vector, normally points back to a 
ROM routine. However, because the ultimate execution address 
is stored in RAM, it can be easily changed to point to new or 
custom code. 

Table 1 is a list of some of the more important of the 158i's 
vectored operating system calls and ihe normal memory loca- 
tions associated with each. The purpose of each of the func- 



You can trap the vectors and 
replace the code in the drive 
ROMs with your own code... 



tions is described in detail beginning on page 108 of the 1581 
user's manual along with the remainder of the operating sys- 
tem calls. To disable any of these commands, it is only neces- 
sary to point the vector to a simple RTS instruction somewhere 
in the drivers ROM, One such convenient location is $807B. Re- 
member that spot - it is all that is required to deactivate any 
system function and can be very useful. 

Back to our original problem. The vector for the "iO" com- 
mand is at $198. To de-activaie the command, a simple 
memory write is all that is required. After opening the com- 
mand channel on the required disk drive as logical file 15 (e.g. 
OPEN 15,S.15 for a device S drive), type in: 

print#15,"m-w";chr$(152);chr$(l); 
chr$(2);chr$(123) ;chr$(l28) 



This sequence of bytes does a memory 
write to the RAM in the disk drive 
(similar to a POKE in the computer) 
that changes the address vector at $198 
to point to the magical RTS instruction 
mentioned above. Now when your ap- 
plication software issues an "iO" com- 
mand to the drive, it is just ignored, 
and your previously selected partition 



remains selected. 



Note; The techniques described here will only work with the 
1581 drive and will probably cause other drives to crash or, 
worse, trash your disks. 

To restore the operation of the "iO" command, you need only 
issue the drive reset command: 

print#15,"ui" 

This automatically resets all ram vectors to their default val- 
ues (unless of course, you have intercepted the "ui" vector, in 
which case it will do nothing). Note that this memory write 
method must be applied prior to starting up your other soft- 
ware because it is very difficult, if not impossible, to send the 
retiuired chr$ values to the disk drive from within a commer- 
cial program, even one containing a sophisticated DOS wedge. 
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Il will also be reset by a general system reset, such as pressing 
ihe reset button on a C 1 28. 

To change DOS partitions from within an application program, 
the application must have a DOS wedge capable of sending any 
user specified command string to the disk drive. The command 
to select a disk partition is: 

/O :<part:itionname> 

where <partilionname> is the name of the disk partition that 
you wish to select. It will appear in the directory with a file 
type of CBM, Note that to access it as a sub-directory partition, 
the partition must first have been formatted as a DOS panition 
when it was initially created. To return to the normal or ^root' 
partition, the command is: 



PC no for i=l to 15 






KH leo read n 




- 


CD 190 print#2,chr5(x ; 






m 200 Dext 






IE 210 close 2 






AF 220 : 






m 230 data 0, 4 


zm execute dos 'E 


;' file at S04OO in drive ram 


BE 240 data 11 


rsn progxam is U bytes long 


FF 250 data 169^ 123 


rem Ida l$7b 




GO 260 data 141, 152, 1 


im sta $0198 


; reset iO vector 


U. 270 data 169, 12B 


ran Ida f$80 


; to point to a 


PF 2B0 data 141, 153, 1 


rem ata $0199 


; Its cooaand 


HT 290 data 96 


lem rta 




NL 300 data 14 


lem cbeckaun 





TABLE 1; 1591 System Vectors 



Syaten Function Hain Entry RAH Vector Points to 
Nue Address at address code at 



/O 



with no partition name specified. 

As with all computer programming, there is more than one so- 
lution to the problem. This next one uses a DOS ampersand 
utiJity nie loader to pertbnn the same task in a slightly more 
elegant fashion. (The DOS ampersand file is a special type of 
USR file which contains a machine language program lo be ex- 
ecuted inside the disk drive.) To activate this program, all you 
need to do is send: 

&0:iO-off 

over the disk command channel to the 1581 drive. This is very 
easy to do with the DOS wedges available in most commercial 
wordprocessing programs etc. (For example, with Pocket 
Writer 128» to gel lo the DOS wedge, press the Commodore 
logo key then the *c' key. You can then type in any disk com- 
mand and send il lo the drive. Other programs have similar ca- 
pabilities.) To restore the 'MO" command, send the "ui" com- 
mand string over the command channel as outlined above. 

Listing 1 is a BASIC loader which creates the USR file iO-oJf. It 
works with all Commodore computers capable of using the 
1581 drive (i.e. C64. C128. +/4, etc.) Remember to sei line 
150 to the device number of your 1581 drive. This device 
number is only used to create the initial file and is not used as 
part of the file itself. 

Obviously, the technique outlined above can be extended to 
any of Ihe vectored commands. For example, by changing the 
vector at soiAAyou can disable scratch; $oiac can be used to 
disable the new (format) command. 



AI 100 ten *ftt**]tt**jrtitt**«ttti»iitjr*it 

EF 110 t&t turn off IS&l 10 cconand 

Lfl 120 res by n, garanszeghy 

Oil 130 rem t************************* 

AA 140 : 

If ISO dT=9 ; rem 15S1 device nmnber 

IP 160 open 2,dv,2/'i0-off,u,»r" 



JIDLE 

JIRO 

jmi 

JVERDIR 

JINTDRV 

JPART 

JMEH 

JBLOCK 

JDSER 

JBECOEB 

JUTLODR 

JDSRCPY 

JREHAHE 

JSCRTCB 

JHEH 



FFOO 
PF03 
FFOe 
FF09 
FFOC 
FFOF 
FF12 
FF15 
FF18 
FFIB 
FFIE 
FF21 
FF24 
FF27 
FF2A 



0190 


BOFO 


0192 


DAFD 


0194 


AFCA 


0196 


B262 


D19B 


BEC5 


01 9A 


B781 


019C 


m? 


01 9E 


BA5D 


OlAO 


B98F 


01A2 


AlAl 


01A4 


A95e 


0U6 


mi 


OlAS 


eecs 


OUA 


8683 


OlAC 


B34a 




□ 
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PLEASURE 
FROM THE 
BIBLE WITH 

LANDMARK 
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Here's what LANDMARK will enable you to do: 

,^SEARCH THROLGH THE BIBLE— Find Phrases, 
words or sentences. 

»^ DEVELOP TOPICAL FILES— Copy from The Bible icxl 
and search results then add your own comments and notes, 

*^COMPILE YOUR PERSONAL BIBLE— Outline texts in 
colon Add Notes and comments. Create your own sup- 
plemeniary Study files. 

»>CREATF- FILES— Then converc them for use with 
wordprocessors like Paperclip and GEOS. 

i^MAKE SUPPLEMENTARY STUDY FlLES—and de- 
velop translation variations. 

NEW LOW PRICE 
$119.95! 

vl.2 for C64 or v2.0 for C128/1571 
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LANDMARK CAN BE 
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Ballwin, MO 63022 (314) 527-4505 
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C-128 CP/M Plus Memory Map 



An in-depth investigation... 



by Miklos Garamszeghy 

Copyright © 1988 M. Garamszeghy 
Heme Data Systems, Toronto, Ontario 



The memory map of the C-12S is complicated to say the least. 
It is even more complicaied in CP/M mode because of the vari- 
ety of RAM, ROM. and input/output chips used by the CPAi 
operating system. This article attempts, for the first time, to 
map out the memory configurations used in Cp/m mode. It is 
not claimed to be complete, but is a very useful starting point 
for your own explorations. The labels for the various memory 
locations are taken from the cp/m system source code files. 

It is difficult to produce a detailed memory map of the CP/M 
operating system because much of the operating system is 
RAM based, and therefore subject to quick and easy revisions. 
There are currently four versions of C-i2S CP/M generally 
available (apart from various beta test versions), as denoted by 
the dates displayed on boot up or by pressing the F8 key. There 
are some major differences in the memory maps of each ver- 
sion. For clarity, these are defined here as: 

AUG = Version dated 1 Aug 85 

DEC = Versions dated 6 Dec 85 or 8 Dec 85 

MAY - Version dated 28 May 87 

There are also significant differences in the memory map de- 
pending on which processor (the Z-80 or 8502) is currently in 
use. This is important even in CP/M mode because most of the 
low-level BIOS routines, such as standard serial port operations 
(some disk operations and all printer output), ram disk opera- 
lions, etc. use the 8502 mode. 

z-80 OPERATIONS 



BANK ; IMJ configuratioD register value $3£ 

EAHK is the system bank. The CP/H BIOS and BDOS operate primarily in this 
bank. Systen calls are made by transient programs via the common meiDory, 



DOOO to OFFF - Z'SO ROM code 

1000 to 128F - SYSKEYAREA ; String data for programmable keys. Each key can 
be defined as a string. Definitions "float" (i.e. you do not have to 
adjust any pointers elsewhere) and are terminated by a lero byte. 
Vector at FODB points to this table. 



1290 to 13EF - KEYCDDES ; ASCII codes for each key, 1 values for each key 
(normal, "alpha mode", shift and control) arranged according to key 
scan code table on pg. 667 of C12B Programmer' s Reference Guide. Note 
that "alpha mode" defaults to uppercase and is toggled on and off by 
pressing the C= logo key. It is equivalent to a software "caps lock"; 
but is not related to either the <caps lock> or <shift locJt> keys. 
Vector at FD09 points here. 

Value Meaning 

null [equivalent to no key press) 

1 to 7£ nonial ASCII codes {lettersr numbers, symbols, etc) 

80 to 9£ key has been programmed as a string, defined in SYSKEYAREA 

{32 possible "programmable " keys) 
aO to if BO-col character colour (ctil with number keys on main 

keyboard] 
bO to bf 90-col background colour (ctrl with number keys on 

numeric keypad) 
cO to cf 40-col character colour 
dO to df 40-col background colour 
eO to ef 40-col border colour 

fO toggle disk status line on/off (ctrl -run/ stop) 

fl system pause [no-scroXl key) 

fZ track cursor on 40-col screen (ctrl -no- scroll) 

£3 move 40-col window left 1 char (Ctrl <- is defined as 4 f3's) 

f4 move 40-col vindou right 1 char [ctrl -> is defined as 4 ti's] 

f5 unlock HIH disk types (ctrl-home) 

f6 select ADH31 emulation node (Ctrl- on numeric keypad) 

(HAY version only) 
fT select VTIOO emulation mode (ctrU on numeric keypad) 

(MAY version only) 
fS to fe not currently defined - reserved for future expansion 
ff system cold re-start (control -enter} 

(NOTE: when bit 7 of FD22 [STATEHABLE) is on, key codes of $B0 and 
greater are returned without executing special functions as outlined 
above. FD4C contains a vector to the address of the tahle of execution 
addresses of key codes fO to ff. This vector can be changed to point to 
your own code.} 

13F0 to 13FF - COLORTBL ; logical colour values 00, U, 22, ,,, FF for use 
with (esc-esc-esc) colour value^ Vector at FDOD points here. 



1400 to IBCF 
ICOO to 23CF 



$CREEH40 ; pseudo 80-columii screen character buffer for 

40 -column screen 
COLOR40 ; pseudo flO-column screen colour buffer for 

ID -column screen 



2400 BANKFARMBLK 
2402 CUROFFSET 

2404 OLDOFFSET 

2405 PRTFLG 



[system parameters and flags} 

position counters used by pseudo 80-col screen 

for 40-col screen 
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2406 FLASHPOS 






2408 FAINTS1Z£ 


; number of tqvs to Dove over for 40-col 
t$ie or $19] 


screen shift 


2409 CHARADR40 


; pointer to current cbar in pseudo screen RAH 


240B CHARCOUO 


; 40-col character position - column 


0-79 


240C CHABBOHIO 


; - screen row 


0-24 


240D &TTR4D 


; 4D-col attribute (character colour] 




240E BGCOLOMO 


; background colour 




240FBDCOLOM0 


border colour 




2410 m40 


; reverse video £lag 




2411 CmDR 


; pointer to oirieDt char in 80-col BAH 




2413 CHARCOL 


; BO-col character position - column 


0-79 


2414 cmsm 


; - screen row 


0-24 


2415 CORRENTATB 


; SO-col attribute 




bit ; 7 - : 


= alternate (block graphics) char set 




- 1 i 


= ASCII character set 




i reverse video 1 = on, = off 2 green 1 


= on, - off 


5 underline 


1 blue 


B IP 


4 blinJc 


" ■ intensity 


II ir 


3 red 


H ■ 





Operating system areas: 



2416 BGCOLORBO ; background colour 

2417 CHAfiCOLOEaO ; character colour 



2418 PAPHBASE 
241A PAPHABEABO 
24 ID PARHAREA4Q 
2420 BDFFmOCOL 

2471 nma 



: pointers to currently active attribute sets 



; buffer for currently pressed key code 



Component 



DEC 



HAY 



m 



BankBDOS 


9900 


9900 


9CO0 


Resident BDOS 


EAOO 


RAOO 


EEOO 


Bank BIOS 


C700 


CBOO 


CAOO 


Resident BIOS 


FOOD 


FOOO 


F400 



2488 CONTROL CODES ; flag for control/shift keys pressed 



HFK disk paraiKter table (DPT] is located at dS76 to da75 in AUG version 

d6bd to dBbc in D£C versions 
and d860 to daSf in HAY version 

The DPT structure is described in "Inside C128 CP/H" (Transactor vol 8/4, pg. 
43,] It contains the basic information to allov access to foreign HFH disk 
types. The DFT can be found by the pointer at FD46 (all versions) , 

The other major coirponent of accessing disk drives is the disk parameter 
header or DPI. This is the working area used by the BDOS for actual disk 
access. When a disk is logged in, the appropriate values are copied fron the 
DFT to the DFH for general use. The drive table address vhich contains the 
vectors to the DPH for each logical drive can be found at BI0SBASEtD7, This 
contains a series of address pointers to the DPEBAS£ for each logical drive 
(A: to F:), If a drive is not supported (drives F; to L; and S: to P:], the 
drive table value is 0. For each drive the $37 byte long DFH has the 
following format: 



Bit 



Key Pressed 



2 
4 
5 

7 

2489 MSGPTR 

24BB OFFSET 
248C CORPOS 

24eE SYSFPiQ 



control key 
right shift key 
C= key 
left shift key 



Bits and 1 Character Hode 

DO = lower case 

01 = alpha mode 

10 = shift 

11 = control 



; pointer to current function key message string 

; cursor pointers used by various screen 
; printing routines 

; power line frequency ; - 60 Hr FF = 50 Ee 



2600 to 2A40 - BTOSfl502 ; 850! BIOS code 

(see map of B502 mode below for description) 

2C00 to 2FFF - VICSCREEN ; 40-colunn video RAH, also appears in hardware 
I/O area and Bank 2. (Note this is separate from nonnal 0123 40-col 
video RAM at $0400 which is unused in CF/H sode because it is under the 
Z-80 ROM, 



3000 to 3CFF - CCPBDFFER ; CCP.CCW hides here during TPA execution 



DFHBA5E-A 
DFHBASE-B 
DFHBA5E-6 

dfhbase:-4 

DPBBASE-2 

DFHBASE-1 

DPHBASE 

DPHBASE42 

DPHBASE4B 

DPHBASE+C 

DPHBAEE+E 

DPfiBASE+10 

DPHBASE+12 
DFHBASEfl4 
DPEBASE^e 
DFEBA3EI17 
DPEBASEflS 
DFEBA3Ef2A 
DFEBASE+2B 



pointer to the sector write routine for this drive 

pointer to the sector read routine for this drive 

pointer to the login routine for this drive 

pointer to the initialisation routine for this drive 

physical drive assigned to the logical drive according to values 

listed below under VICDRV. 
secondary disk type byte from byte 2 of DPT entry, 
pointer to logical to physical sector skew table {0000 if none) 
9 bytes of scratch pad for use by BDOS 
media flag if disk logged inr FF if disk has been changed 
pointer to DFB values for this drive (contained later in entry} 
pointer to CSV scratch pad area {used to detect changed disks| 
pointer to ALV scratch pad area (used to keep track of drive 

storage capacity) 

pointer to directory buffer control block (BG] 
pointer to data buffer control block 
pointer to the directory hashing table (FFFF if not used) 
bank for hash table 
DPT entry for this drive 

ma^ijnum sector number and HFH lock flag (bit 7 on if locked] 
pointer to entry in master KFH DPT table 



3CO0 B00TPAH4 3C09 BLOCKPTRS 

3C02 LDBIKPTK 3C29 IHFOBOFFEft 

3C04 BLKmDPTR 3C35 EXTNUH 

3C06 BLOCKSm 3C36 RETM 

3C07 BLOCKEHD 3C77 BOOTSTACK 



various flags etc. used during cold boot 



3D00 BANKOFREE ; BANE work area can be used by transient programs 
extends to 9BFF on Dec/B5 and 14ay/87 versions, 9BFF on Aug/SB version. 
Primarily used by CP/M as directory and file buffers, Progranaers can 
use, but beware of implications, 



EOOD Free nemory in Connnon BMK and 1. Homally used by RSX {resident 
system extension] programs, as well as operating system extensions and 
SID, 5DBHIT, SAVE, GET, PUT, etc. Can be used by experienced progranners 
if you are aware of conse^iences, such as possible crash when using 
another program. 

Extends to E9FF in DEC and KA:: versions and 
EDFF in AUG version 
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Systea Control filock (SG): 



DEC and KAY Versions EF9C to EFFF 
AUG Version F39C to F3FF 



100 bytes coDtaiDing basic system variatiles, located inwdiately before BIOS 
]va^ tabler can be read or written with BDOS function 49, Basic paraneters 
detailed in Appendix A of CF/H Plus Frogiaamera Cuide from Digital Research. 



Byte Offset 



Function 



00 - 04 
05 

06 - 09 
OA - OF 
10 - 11 

12 - 19 
U 
IB 
IC 

ID - 21 
22 - 2B 



Bit 



reserved for various system flags 

BDOS version number 

reserved for user determined flags (put your own stuff here) 

reserved for system use 

16'bit program return code for passing data to 

chained programs 

reserved for system use 

screen width - 1 (set to 79) 

current column position on screen (0 to 79) 

screen page length (24 lines per screen) 

reserved for system use 

assignoent vectors for CP/H's logical I/O devices, 

16-bit value used as follows; 

Device 



f 


KEYS (input only) 


e 


SOCOL output only) 


d 


40COL (output only] 


c 


PRTl (device 4 serial printer, output only} 


b 


PRT2 (device 5 serial printer, output only) 


a 


6551 (not really supported, it was supposed to be on an 




erternal card vhich was never produced) 


9 


RS232 (iq>ut or output) 


8 tD 


not used 



If a bit is on, then the physical device is assigned to that logical device. 
Each logical device can have more than one physical device assigned to it 
and each physical device can be assigned to more than one logical device. 
Logical devices and their assignment vectors are: 



35 - 36 address of 128 byte scratch pad buffer 

37 output string delimiter {normally $) 

3B LIST output flag = console output only 

1 = echo output to printer 
39 reserved for system use 

3A - 3B pointer to start of SCB 
3C - 3D current DMA (disl? buffer) address 
3E current drive (0 = A;, 1 = B;, etc.) 

3F - 40 BDOS disk info flags 
41 FCB flag 

43 BDOS function where error occured 

44 current user number (0 to F) 

45 - 49 reserved for system use 

4A BDOS multi sector count for read/write 

4B BDOS error mode: 

FF = do not display error messages, return to current program 
FE = display error messages, return to current program 
else terminate current program on error and display message 
4C - 4F Drive search chain: up to 4 drives can be specified 
= current default drive, 1 = A:, 2 ^ B:, etc. 
If program or file is not found on specified drive, the search 
chain will be used and each drive in the list will be tried 
in sequence until it is found. 

50 Tei^orary file drive: = default, 1 = A;, etc 

51 Error drive; number of drive where last I/O error was encountered 
(0 = default, 1 = A;, etc} 

52 - 53 reserved for system use 

54 BIOS flag to indicate disk changed 

55 - 56 reserved for system use 

57 BDOS flags: bit 7 set, systea displays expanded error messages 
{default is set) 

58 - 59 date in days in binary since 1 jan 7fl 
5A hour in BCD 

5B minutes in BCD 

5C seconds in BCD 

5D - 5E start of common metKiry (EOOO) 

5F - 61 reserved for system use 

62 - 63 top of user TPA [from vector at 0006 - 0007; entry point to BDOS) 



22 -23 
24 - 25 
26 - 27 
Za -29 
2A - 2B 



COKIH 

CONODT 

AUXIH 

AUXODT 
LSTODT 



2C 



2D 
21 

2F 



Page mode = display 1 page of data at a time 

1 = display continuously 
(this is the annoying flag that causes CP/H TYPE command to say 
"press return to continue" after each screenful of data.) 
reserved for system use 
determines effect of CTRL-H. = backspace and delete 

FF = delete and echo 
determines effect of delete = delete and echo 

FF = backspace and delete 
reserved for system use 



30 - 32 

33 - 34 16-bit console mode flag (default value = 0000): 

Bit Meaning 




1 
2 

3 

B 



- 9 



= return notnal status for BDOS function 11 

1 = CTflL-C only status 

= enable CTRL-S CTRl-5 stop scroll/start scroll 

1 = disable stop/start scroll 

= normal console output 

1 = raw console outputr disables tab expansion, 

and CTRL-P printer echo 

= enable CTRL-C program termination 

1 = disable CTRL-C 

used for RSl^'s 



BIOS Jim^ table: 



(BIOSBASE= FOOO in DEC and HAY versions 
F400 in AUG version) 

(NOTE: the first byte of each group is a Z80 jm^ instruction to the 
address contained in the next two bytes.) 



Address 



Function 



BIOS Function nuinber 



BIOSBASE+OO 
BIOSBASE+03 
BIOSBASE+06 
BIOSBASE+09 
BIOSBASE+Oc 
BIOSBA5E+0f 
BIOSEASE+12 

BI0$BASE+15 
BI0SBASE418 

BI0SBASE4lb 
BlOSBASE+le 
BlDSBASE+21 
BIOSBASE+24 
BI0SBASEf27 
BI0SBASE42a 
Bl0aBASE+2d 



to +02 cold boot 

to +05 warm boot 

to +08 check CONSOLE input status 

to +0b read CONSOLE character 

to +0e write CMSOLE character 

to +11 write LIST character 

to +14 write ADXILIARY OUT character 

to +17 read ADXILIARY INPUT character 

to +la move to track on selected disk 

to +ld select disk drive 

to +20 set track nuinber 

to +23 set sector number 

to +26 set DMA address 

to +29 read specified sector 

to +2c write specified sector 

to +2f check LIST status 




I 
U 
3 
4 
5 



Transactor 



41 



December 19fid: Volume 9, Issue 2 



BlOSHASE+30 
BlOSEASE+33 
BIOSBASE+36 
BI0SBAS£f39 
BlO$BAS£f3G 
BI0SEASEf3f 
BIOSBASE+42 
B10SBASE445 
BlOSBA£E+4e 
BIOSBA£E44b 
BI0SBASE44e 
B10SBASE451 
BIOSBASE454 
BIOSBASE457 
BI0SBASE45a 



to 432 translate logical to physical sector 

to 435 chficli CONSOLE output status 

to +38 check AUXILIMY INPDT status 

to 43b check AUXILIARY OUTPDT status 

to +3fl get address of character I/O table 

to +11 initialize character I/O devices 

to +44 get address of disk drive table 

to +47 set I of logical sectors to read/write 

to +4a force I/O buffer flush 

to +4d nemory move 

to 450 get or set tiM 

to 453 select memory bank 

to +5fi specify bank for DMA operation 

to 459 set buffer bank 

to 45c call user system functions 



16 

n 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



FD02 VICDFV ; device number to execute on printer. 

for disk I/O; 



BI0SBASE4d3 to 4d4 pointer to physical device table 

(points to Sf7fd in AUG and 5f3el in DEC and MAY) 

DEVTBL - Physical device table, each entry is 8 bytes long: 

device name (fi bytes, padded vith spaces) 
mode byte [1 byte) 
baud rate (1 byte] 

Mode Byte CojTponent Device Function 



0000 0001 


device can do input 


0000 OOIO 


device can do output 


0000 0011 


device can do both 


0000 0100 


supports softvare selected baud rate 


0000 1000 


supports serial 1/0 


0001 0000 


supports XON/XOFF 



Baud FUte 




Baud Rate 






Byte 


Function 


Byte 


Function 


Note; 




non« 


9 


IBOO 


For all practical uses, C12B 




50 baud 


a 


2400 


CP/H will not support rates 




75 


b 


3600 


over 1200 baud because of 




110 


c 


4800 


software overhead. 




135 


d 


7200 






150 


e 


960O 






300 


f 


19200 






600 








8 


1200 









C128 devices are; KEYS, 80COL, 40COL, PBTl, PRT2, 6551, and R5232 

BI0SBASE4d7 to d8 pointer to drive table (List of DPH addresses) , 

(points to FBDl on DEC and MAY versions and FB7a on ADG) 

FCOO to FDOO lOLOCK ; contains all FD's. This is the pointer to the 
interrupt vector (FDFD), A hardware quirk of the C128 retfuires from FCOO 
to FDOO to be all FD's else the interrupt pointer address will not be 
correctly specified on the Z-80 address bus. If you use this seemingly 
unused area for your own programs, it will crash on a random basis if an 
interrupt occurs. BEHAEBI! 



PABJ4EL0CK 
FDOl VICCMD 



; BIOS parameter working storage for passing to B502 
; BIOS 8502 command to execute 



Bit Value Drive 



0000 OOOl 
0000 0010 
0000 0100 
0000 1000 
1000 0001 
1000 0010 
1000 0100 
1000 lOOO 



unit S, drive 

unit 9, drive 
unit lOj drive 
unit 11, drive 
unit a, drive 1 
unit 9, drive 1 
unit 10, drive 1 
unit 11 J drive 1 



[default drive A 
[default drive B 
[default drive C 
[default drive D 



and E:) 



FD03 VICTRK 



FD04 VICSECI 



FDQ5 VICCODHT 



EDO 5 VICDATA 



FD07 CDBDRV 



FD08 FAST 



track number to execute dis): operations on, 
or secondary address for printer operations 
sector number for disk operations. For HFM 
disks side 1, use JBO + sector f 
number of sectors to read/write fox disk I/O, 
number of characters to print on printer or low 
byte of address to ymp to for custom 8502 code, 
various data/status itens for disk and printer or hi 
byte of address to juiEp to for custom &502 code, 
current logical drive using device A; {0 = drive A: 

4 - drive E;) 
drive type flags [updated after each drive I/O 
operation], bit on=drive is fast (1571 or 1581) 
off=drive is slow [1S41 type} 



Bit 



Drive 



-7 



A; (device 8) 
B: » 

C: 10 

D: U 

(not currently used] 



FD09 KEYTBL ; pointer to key scan definition table (1290] 

FDOB FDNTBL ; pointer to function key table (1000) 

FDOD COLORTELPTR , pointer to logical colour table (13F0) 

FDOF FDSOFFSET ; offset to current function key (0 if none] 



FDIO SOUNDl 
FD12 S0DND2 
FD14 S01M13 



pointers for various clicks, beeps etc. 



Tbe following storage locations are used by the general BIDS and BDOS 
function calls. Values for BIOS 8502 storage {FDOl etc above) are taken 
from here: 



; track number used in BDOS and BIOS routines 
; address of disk data buffer 
; sector number used in BDOS and BIOS routines 
; numberof sectors to read/write 
; current bank (0 or 1) 
,■ bank for disk data buffer [0 or 1) 
; absolute drive code [0 = A;, 1 = B:, etc} 
; relative drive code [sane as for VICDRV 
outlined above) 

; I 128 byte records in CCP.COM file. 



FD16 3TM 


FD18 Sim 


FDIA SSECT 


FDIC 3CNT 


FDID 3CBNK 


FDIE ^DBNK 


FDIF SADRV 


FD20 @RDFV 


FDSl CCPCODNT 
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FD22 SrATENABLE ; general purpose status flags: 



BANK I; 



Bit Heaiung (vheD set to 1) 



7 



6 



alloif 8'bit liey codes 

(key values above $90 will not result in 

special functions defined in key scan table] 

track cursor on 40 -col screen 

when doing input on 90-go1 screen 
5 to 1 (not used?) 
display disk status on bottom line of screen 

n)!3 EHDLATIONADR ; pointer to screen einulation code address (used to 
switch between VTIOO and ADH31 modes. Can be pointed to custom code 
(in bank 0} for other types of emulation. 



FD25 DSAfiTADR ; pointer to external 6551 address (not normally used) 



FD27 INTHL 
FD3D INTSTACK 
FD3D DS£RfiL7EHP 
FD3F HLTEHP 
FD41 DETEMP 
F[)43 ATEKP 

FD44 SODRCEENK 
FD45 DESTBNE 



; ten^Jorary storage for CPU registers during 
; interrupts, BDOS and BIOS calls, etc. 



; source bank for inter-bank memory niove |0 or 1) 
; destination bank for inter-bank move [0 or 1) 



FD46 HFHTBLPrR ; pointer to KFH disk parameter table [DPT] 



FD4B PRTCONVl 
FDJA FErCONVS 



, pointer to character conversion routine for PRTl 

printer (normally ASCII to PETSCII) 
; pointer to character conversion routine for PRT2 



FD4C KEYFXFUNCTION ; pointer to dispatch table for executing extended 
key codes functions FO to FF, This table can be patched to add your 
UBory resident special functions, 

FD4E XX&COKPIG : RS-232 configuration register 
FD4F R5232$TATUS ; RS-232 status register 



Bit Meaning 



Bit Meaning 



7 = ready to receive data 

6 = idle 1 = busy 

5 1 = data in buffer que 

4 1 = parity error | 



3 I = framing error 

2 1 = other error 

1 1 = receiving data 

1 = reai^ to send data 



FD50 XMTTDATA 
FD73 RXDBUFCOUWr 
FD74 RXDBUFPDT 
FD75 RXDBUFGET 
FD76 RXDBU-FER 

FDFD IHTVECTOR 



; RS-232 sending data buffer 

; number of characters in RS-232 buffer 

; ten^orary storage for RS-232 variables 

; RS-232 data receiving buffer (60 characters) 

; main entry point to interrupt routine (jun^ to 
routine elsevherei 



FEOO ^BUFFER ; 256-byte disk and general I/O buffer (you can put 

your own code here if it is OK to overwrite when not in use 



FFOO FORCEMftP 
FFOl BAHKO 
mi BANKl 
FF03 10 
FF03 100 
FF04 101 

FFDO ENABLEZBO 
FFDC RETDRHZ80 

FFEO EHABIE6502 
FFEE R£TDR»6502 



; HKU configuration register 
; force to MJ value of 3F 

7F 
31 

31 

71 

; 8502 code to switch to Z-BO mode 



; Z-90 code to switch to 8502 mode 



BANK 1 is the transient program bank. All transient programs operate in 
this bank. The MHU ccnfi^aticn value is S7F. 

0000-0002 JuE^ to BIOS warm start entry BIOSBASE f 3 



0004 high nibble = current user number 

lew nibble = current default drive (0 to f, 0=A, etc, 



0005-0007 Jun^ to BDOS entry point (address stored in OOOfi-0007) 
HOTE: This address also marks the end of the TPA, It can 
artificially lowered for use by resident programs. 

0OOS-OO4f reserved for RST 1 to 7 (Z-SO restart instructions) 

(NOTE: Locations 0050 to 007b are set automatically by the CCP when 
a transient program is loaded. The transient program can 
then check this areas for parameters which nay have been 
passed from the console in the form of a command tail. 



0050 drive from i^ch latest transient program was loaded, 

1=A; 2=B; ,,,16^ 

0051-0052 pointer to password of first operand in coooand tail [points to 
a location in the CCP buffer starting at 0080) . It is set to 
if nc password specified. 



0053 



length of first password. Set to if no password. 



0054-0055 pointer to password of second operand in connand tail. Set to 
if no password specified. 



0056 



length of second password. Set to if no pasjvord. 



0D5c-0D7b default parsed file control block (FCB) area: 

005c-006b initialized from first ccEDoand tail operand 
00fic-007b initialized froA second coonand tail operand 

(NOTE: The FCB areas are normally 32 bytes long each. Thus, the second 
FCB area must be moved to an unused area before the first FCB area can 
be used or else it will be overwritten.) 



007c 



current record position for default FCB 1 . 



007d-007f current randcm record position for default FCB 1, 

0080-OOff default 128 byte disk buffer and CCP input buffer, 

0100-e9ff 58K transient program area (TPA) DEC and HAY versions 

-edff 59E TPA on AOG version 



eOOO-ffff ctmon with BANK (top of TPA, also BDOS, BIOS^ etc.) 

Bank 2 ; HHC value = $3E 

This bank, t^ich I have arbitrarily called BANK 2, is oiostly the same as 
Bank with the following exception: 

1000 to 13FF VICCOLOR ; colour map for 40-col screen 

This bank must also be in context to access the ^HD chip registers at D500 
in the Z-BO I/O maff>ed area. 



lt**tt«*tJr*«taJrt«tlJrt«ttJrtittJr*tttJrttt**]titt**t4*Jr*«t*Jrtttttt4** 
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1-80 I/Oaapped area: 

In addition to the nonoai meinory loapping Mhidi includes FAK and ^(M, the 
Z-fiO haa another addressing node which ifl called I/O napping. This is used 
to access the chip registers and is similar to Mmory mapping except the 
Z-aO IN and OOT instructions :Bist be used instead of U> type instructions. 
The two HLOSt conunly used ones are; 

IB A; (Cj which will read the value of I/O addressed by ,BC into the 
,A register 

OUT [C),i which will write the value of ,A to the I/O addressed by ,BC 

m both cases, BC is a 16-bit address and .A is an 8-bit value. 

The C12B I/O chips appeai at their nomal address locations in the I/O 
area as outlined below and can be programed directly by the experienced 
user. Note that you must be careful when playing with register values 
because CF/H expects most of them to be set in cectain ways, Changing 
these settings may cause a system crash. The remainder of the address 
space is talten up by "bleed through" frwB the underlying bank RAM, 
An exception to this is the space from OOQO to OFFF which actually 
contains bank RAM from address DOOO to DFFF. 



DOOO - VIC 
D400 - SID 

D500 - ym 

DfiOO - 8563 80 -column chip 
D800 - VICCE 40-col colour map 
DCOO - CIA II 
DDOO - CIA 12 



DEOO external 6551 USART 

DEOO TXD6551 (send & receive data register) 

DEOl RESEr6551 {write only) 

DEOl STATaS6551 (when read) 

DE02 C0HHANDe551 

DEO 3 C0NTR0L6551 

DFDO RAH expander DKA controller chip 



»»ititit*»Jrttik*ttttAikVtltltttiltJrttil*tttittftilt»]tittik]t]t«llfrt«it*ttit**Jrtit**Jrit«ikilttitik 



8502 Mode 



Surprisingly, the CP/H side of the C12a also makes use of the 8502 side, 
including the KEBJIAl RCMs for sone of the lo«-le7el I/O operations. In 
8502 mode, RAM from OOOO to OlFF is ccaraion between the banlis. Note that 
this is different than normal C128 mode which haa common RAM from 0000 to 
03FF. The most important in^ilication of this that the KERHAL JSFAR, 
JHPFAE, INDFET, IHDSTA, and IHDCMP routines for bank manipulation cannot be 
used because they all rely on code which is no longer in coimon RAH (it is 
above 0200), 

Most of the Mttory m^ is similar to the Z-BO side with the exception of 
the low end. This lov end area is very similar to that used in nomal 
C129 mode except as noted belov. 



Rank (Mfd value 3F) ; 



OOOA 
OOOB 
OOOC 
ODDD 
OOOE 
OOOF to 0012 



; BIOS 8502 working storage 

; current printer device nuidjer 
; printer secondary address 

; disk drive data channel I 

; disk drive conmiand channel t 

; disk drive device t 

; temporary storage pointers 



0090 to OOCA ; KEBJIAI pointers required for dislt and printer I/O 

; same as C129 mode 

OOCC to OOFF ; unused zp RAH 

0100 to 0200 ; various KERKAL pointers, 8502 stack, etc, Some 

unused locations but too chopped up to put code here. 

0201 to 02FF ; basically unused, you can put some code here if you wish 

0300 to 0333 r' system vectors 

0334 to 0361 ; unused? 



0362 to 037F ; logical file tables 



03BO to 09FF ; unused? 



OA03 



OAIC 



; FF=50 El, PAL; 0=60 Hi, HTSC 



; serial bus fast flag 



Other areas up to Offf are used sporadically. Large qjen spaces in table 
buffer (OBOO to OflFF) and C128 iwde RS-232 buffers {OCOO to ODFF). 

1000 and up ; common with 2-80 side 

The following area is used idien the B502 is switched in during CF/H 
operations : 

2600-2a40 BIOS8502 ; 3502 BIOS code {all code here is in standard 8502 HLJ 



BIOS0502 function 


Jump Table Entry 


Points to code at 




ADG 


HAY/DEC 


AOG 


MAY/DEC 


-1 reset 


260f 


2614 


2625 


262e 


initialize 


2611 


2616 


2654 


2G5d 


1 read 1541 


2613 


2616 


26S2 


2690 


2 write 1541 


2615 


261a 


26b0 


26be 


3 read 1571/61 


2617 


261c 


26f9 


2707 


4 wrt 1571/61 


2619 


261e 


26f6 


2704 


5 inguire disk 


261b 


2620 


270e 


271c 


6 query disk 


261d 


2622 


2740 


274e 


7 printer 


261f 


2624 


2776 


2784 


6 format dsk 


2621 


262G 


27ac 


27e2 


9 user code 


2623 


2628 


262b* 


2634 


a 1750 read 


n/a 


262a 


n/a 


2820 


b 1750 write 


n/a 


262c 


n/a 


2823 



* HOTE: There is an error in the code at $262b of the AI3G version. The byte 
value is Sc3 and it should be $6c for a JMP (Hotx) . This means that 8502 
BIOS subfunction 9 (jump to custom user 6502 code] does not worli on the 
ADG version unless you first correct this bug! f 

BIOSB502 IRQ, BRK and HHI vectors point to 29ae on the AIK3 version 

and 29f0 on the HAY and DEC ver. 

Other I/O vectors are unchanged. 



Bank 1 {MJ value 7F) : 



0013 to 008F 
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unused ip RAH where you can stash your own 6502 code 
(pointers normally used in C12B mode, but not required 
in CF/H mode) 



0000 to OITF 
0200 to FFFF 
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WHEREIS 



Notes from the CP/M Plus workbench 



by Adam Herst 

Copyright © 1988. Adam Herat 

[t is not easy to find a specific file in an unknown user area on 
a disk in an unknown drive. C-12S CP/M disks can hold up to 
128 files- These files can be isolated across 16 user areas. Up 
to 16 drives can theoretically be attached to a CP/M system. 
The only tool provided with CP/M Plus with which to find a 
specific file or files across all drives and user areas is the tran- 
sient version of the DiR command. 

You can search for a file across user areas and across disk 
drives with the command: 

DIR d:filename.lyp|,d:filename-typj [USER=ALL] 

where d is the drive to search, filename.typ is the name of the 
file for which lo search, and the braces (| |) indicate an option- 
ally repeated argument. 

There are a number of drawbacks to this method. The transient 
version of dir is a large file and can be slow lo load. It is a 
gencrali/.ed tool making it slow to execute, h displays extrane- 
ous, as well as desired, information. The drives to be searched 
must be explicitiy stated on the command line. The informa- 
tion returned by DIR concerning file location is not in a format 
suitable for use in hatch processing. Finally, even though the 
transient version of DIR is exclusively a CP/M 3.0 command, it 
docs not manipulate the program return code. 

WHEREIS addresses all of these problems. Written in 8080 as- 
sembly language and assembled with Mac and hexcom (sup- 
plied as part of the DRI special offer package), V/HEREIS is 
small, fast and speciahzed for this task. If no drive is specified 
for the search, all drives in the drive search path are searched- 
Finally, the program return code will be set to unsuccessful if 
no match to the file specified on the command line is found. 

WHEREis prints the drive code, user area code, and file- 
name,typ for the found file(s) in the form: 

duu:filename.typ 

where 'd* is the drive the file was found on, 'uu' is the user 
area it was found in, and 'filename.typ' is the filename and 
filetype of the found file. 



WHEREIS is invoked with a command of the form: 

WHEREIS d:filename.typ 

where 'd:' is an optional valid drive specification, 'a:' to 'p\\ 
and ^filespec' is a valid filename and fileiype with appropriate 
wildcards. If an ambiguous filespec is given, all matches will 
be returned. If no drive specification is given, all drives in the 
drive search path will be searched. 

The source code is well commented and the program is (I 
hope) self explanatory. A few points are worth explicit note. 

WHEREIS uses two systcm services that are available only un- 
der CP/M Plus: get/set SCB, and get/set program return code. 
WHEREIS uses the get/bct scb call to determine the drive search 
path, and uses the get/set program return code to set the pro- 
gram return code to unsuccessful if no file match is found. (An 
incomplete description of the SCB data structure and the inter- 
pretation of return codes is provided in the documentation of 
the appropriate system call in the CPIM Plus Programmers 
System Guide in the volume supplied with the DRI special offer 
package.) 

Making these calls under CP/M 22 will yield unpredictable 
results. WHEREIS checks the version number of the operating 
system as a courtesy to CP/M 2.2 users. A comparison is made 
for a returned version code of Oh indicating that the version of 
the operating system is pre-3.0. (Multiple versions of CP/M 
3.0 are available. CP/M on the C-128 returns a version number 
of 3.1. An explicit check for CP/M 3,x would require 16 com- 
parisons). If the version of CP/M is pre-CP/M 3.0, WHEREIS 
will abort with a reminder that CP/M 3.0 is required. 

Both of the system services used by whereis that are exclu- 
sive to CP/M 3.0 access the System Control Block (SCB), ei- 
ther directly or indirectly. The SCB is a 100-byte data structure 
containing system flags and variables that can be accessed by 
the assorted modules that comprise the CP/M operating sys- 
tem. Some SCB flags and variables can be queried or set 
through CP/M system calls. Others must be queried or set 
through system call 31h and a user-defined data structure 
called the SCB Parameter Block (SCBPB). 
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One variable that can be manipulated directly is the program 
return code. The program return code is a one-word variable 
contained in the SCB. It can be used lo pass a value to a 
chained program and is tested by the ccp during the execution 
of submit files lo conditionally execute command lines. (See 
the article "Exploring SliBMlT^* for more information on con- 
dinonal command lines.) In a submit file, a program return 
code between OOOOh and feffh inclusive indicates successful 
program termination, while those between ftXX) and fffeh in- 
clusive indicate an unsuccessful program termination. 

The program return code can lake on the following values: 



OOOOh 
ffOOh 
OOOOh 
ffSOh 
fffdh 
fffeh 



- feffh 

- fffeh 

- fffeh 



successful return 
unsuccessful return 
CCR initialization value 
reserved for system use 

fatal BDOS error 

CTBL-C 



The codes between ffOOh and fl7fh are available to the pro- 
grammer 10 indicate an unsuccessful termination. WHEREIS 
sets the program return code to ffOlh, unsuccessful, on execu- 
tion. The return code is set to OOOOh, successful, when a file 
match is found. 

CP/M 3X) provides for the definition of a drive search path. Up 
to four drives can he included in the CCP command search. The 
drive search path is also stored in the sen. 

At the command level, the drive search path can be queried or 
set with the DEVICE command. Issued without options, device 
will display the current drive search path along with other en- 
vironment information. The drive search path can be set with 
the command: 

DEVICE d [4 1 

where 'd' is the letter of a vaHd drive, 'a' to 'p\ or an asterisk, 
**\ lo indicate the defauJt drive. Up to four drives can be spec- 
ified in the drive search path separated by commas. 

At the system level, there is no call to directly query or set the 
drive search path. The drive search path must be queried or set 
using the SCB system call and the associated SCBPB. The SCBPB 
consists of three fields: the offset, the get/set code, and the set 
value. The offset is a single byte indicating the number of 
bytes from SCB base of the field to access. The get/set code is a 
single byte thai indicates whether the call will get or set the in- 
dicated SCB field. A code of OOh indicates a gel operation, a 
code of Ofth that a byte should be set, and a code of Ofeh ihal a 
word should be set. The set value is a byte or word containing 
the value thai the indicated SCB field should be set lo. 

The drive ^search path occupies four bytes in the SCB, starting 
at the byte with an offset of 4ch and ending at the byle with an 
offset of 4fh. Each byte in ihc drive path chain represents a 
disk drive with codes Olh-Oth representing drives A: to P: re- 



spectively, A drive code of OOh represents the default drive. A 
code of OOffh indicates that the following bytes in the drive 
path chain have not been set, i.e. this is the end of ihe chain. 

WHEREIS accesses the drive search chain through a function 
with two entry points. PATHF and PATHN. Successive calls to 
the function leave the code of the next drive in the drive search 
path or a OOh (indicating the end of the path) in the accumula- 
tor. Drive codes are retrieved from the drive search path until a 
code of OOffh is retrieved or until the SCB offset points past the 
four-byte drive path chain. (This latter indicator is used lo 
avoid searching the drive path chain when a drive is specified 
on the command line for searching. The offset is immediately 
set past the drive path chain to end the search after the speci- 
fied drive,) A call to PATHF initializes the SCBPB and other flags 
and returns the code of the first drive in the path in the accu- 
mulator. Subsequent calls to pathn will return subsequent 
drive codes. 

The bulk of the function ensures that the code of the default 
drive is not relumed twice if il is included in ihe palh through 
both an implicit (the default drive code) and an explicit (the 
drive code) reference. The default drive can be specified as 
part of the drive search path. If the default drive also is named 
in the drive search path, it will be searched twice - once when 
iis explicit drive code is retrieved from the chain and once 
when the default drive code is retrieved from the chain. To 
avoid this situation a flag, DRVFLG, is maintained. The !ow 
nybble contains the drive code of the default drive. The high 
nybble contains the 'default drive already returned* flag - It is 
set to if the default drive has not been returned, and to Ofh if 
it has been returned. If the default drive has been returned, the 
drive code of the next drive in the path will be relumed in- 
stead. 

WHEREIS is very useful in locating the files that inevitably gel 
spread across user areas and disk drives. Another use is to al- 
low simple conditional command execution in submit files. 
The submit file 1 use to drive MAC and HEXCOM uses whereis 
to check for the existence of the appropriate .hex file before 
invoking HEXCOM on a conditional command line (the first 
character in the line is a colon followed by a space). If the file 
is not found, WHEREIS sets the program retum code to unsuc- 
cessful and no time is wasted invoking hexcom on a non- 
existent file. There is probably a place for whereis in your 
toolkit. 

Listing: whereis .asm 

; vhereU (c) 1988 Adam herst 



where is tbe match to the file specification on comand line 

expand wild cards 

search driva if specified or search all drives in drive patb 

search all user areas 

return the drive specification in the foim DUO:filenaAe,typ 

sat program return code to unsuccessful if no match found 
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; BDOS services 




; check return status 




ConOut 


equ 2h 


; print character 




cpi 


Offh 


; found file? 


PrStr 


e^ 9b 


; print string 




JE 


NXTUSR 


; no so set next user number 


VeriJuB 


equ Och 


; return qmi version nunber 




call 


PFSPEC 


; yes so print filespec 


SrchF 


equ llh 


; search for first file name 


; do next file 






SrchN 


equ 12h 


; search for next file name 




» 


NXTFIL 




CurDrv 


equ 19h 


; get current drive code 


; do next user 


area 




SetDm 


equ lah 


; set dma buffer 


NXTUSR 


mvi 


c, GetUsr 




GetUsr 


equ 20h 


; get/set user nmd^er 




ni 


e,Offh 


; get user nufiiber from system 


G«tScb 


equ 31h 


; get/set scb 




call 


BDOS 




RCode 


equ D6ch 


; get/set program return code 




inr 


a 


; increment user number 


; system pointera 

FC£ equ bch 


; FCB buffer pointer 




cpi 
■vi 


lOb 

NXTDRV 
c, GetUsr 


; is it user number 16? 

; yes so do next drive in path 


NA 


equ 400b 


; DHA buffer pointer 




M 


BDOS 
; symbols 


J 

equ Sh 

equ Odh 
equ Dah 


; BDOS function pointer 

; ascii carriage return 
; ascii line feed 


lOT e,a 
call BDOS 
jip FILE 
; do next drive in path 
NXTDRV call FATHN 


; set nev user number 

; search the next user area for first file 

; get next drive code, leave in a 
• search the drive if there is one 


RCOIEO 


equ DOOOt 


L ; successful return code 




be and p 


NODRV 


RCODEl 


equ DffOlh ; user unsuccessful return code 


; creai 


rint the filespec of dna entry in a 








FFSFEC 








org 


lOOh 




; do user number 












Ixi 


hpUa 


; point to user nvsixi in first entry 


; exit vitb ntessage if not 


cpn 3.0 




mvi 


b,Oh 


■ 4 

; entry counter to 


nvi 


CrVerNun 

^- ^- ^ ^k 




ESTRY 


^itp 


b 


; is it the right dma entry? 


c«U 


BDOS 






]■ 


NUMBER 


; yes so put user number in filespec buffer 


ora 


a 






Izi 


d,20b 


; point to user number next entry 


jni 


ISCFH3 






did 


d 




nvi 


cPrStr 






lor 


b 


; increment entry counter 


1x1 


d.ISCPH2 






J"P 


Emr 


; check if the right entry 


call 


BDOS 




HUHBER 


mov 


a,m 


; get user number from dna entry 


ret 








qa 


lOd 


; is it less than 10 


ISCPH2 db 


'whereis requires CP/M 3.0\CRrLF/S' 




}dc 


ONE 


; yes so 1 as first digit in user nunber 










ttri 


a/0' 


; as first digit in user number 


; set dma buffer 






tti 


F3PEC+1 




ISCFH3 mi 


C/SetDma 






j^ 


SECOND 


; do second digit in user number 


Ixi 


d;DHA 




C^ 


nvi 


a/r 


; put a 1 iA filespec buffer 


call 


BDOS 






sta 


FSFEC+1 




; set return code to unsuccessful 


SECOND 


DOV 


arSi 


; gat user nu0d>er from file entry in DKA buffer 


uvi 


C^RCODE 






cpi 


lOd 


; is it less than 10 


Ixi 


d, RCODEl 






}c 


Nosua 


; no so don't subtract 


call 


BDOS 






tui 


10 


; subtract the ten 


; check if a drive is specified for search 


NOSUB 


adi 


30h 


^ make it printable 


lii 


h,FCB 


; point to drive code in fob 




sta 


FSFEC+2 


; put it in the filespec buffer 


lOV 


a^m 


; get drive code from fcb 


; do filename 






ora 


a 


; is it the default drive code? 


; copy 


file naiae from djoa buffer to filespec buffer 


JE 


DRIVE 


; yes so start searching drive path 




ins 


h 


; point to filename in current entry 


lii 


h,DRVOFF 


; point to offset for drive path in subroutine 




lii 


d;FSFECi4h 


, ; point to filename in filespec buffer 


mvi 


D,04fh 


; set offset to end of drive path to force exit 




ni 


bjh 


; set counter for filename length 


iw 


USER 


; search user areas 


FNUIE 


DOV 

atax 

4 ^H^H 


a.n 

d 

h 

d 

b 




; saaicb diivef 


[ in drive path 






DRIVE call 


FATHF 


; get first drive in path, leave in a 




ini 
dci 




HODRV cpi 


Oh 


; is there a drive in the path? 






rx 




; no so exit 






Ixi h,Fcb 
mov Dra 
; search user areas 


r ^ 

; point to drive code in fcb 
; put drive code in fcb 


FTYPE 


jni 

avi 

inx 
mov 


FNAHE 

b,3h 

d 

a,m 


; set counter for filetype length 
; point to filetype in filespec buffer 


USER m 


CGetUsr 


; start at user area 




stax 


r 

d 




m 


e,Dh 






inx 


h 




call 


BDOS 






iut 


d 




; search for first natch to the file nam in the FCB 




dCR 


b 




FILE mvl 


c, SrchF 






JM 


FTIPE 




Ixi 


d,FCB 




; do drive letter 




call 


BDOS 






Ixi 


b.FCB 


; point to drive code in fcb 


; check return status 






mv 


a,m 


; get the drive code 


cpi 


Offh 


; found file? 




vdi 


40b 


; make it printable 




NXTUSR 


; no so set next user nunter 




Izi 


hJSPEC 


; point to drive code in filespec buffer 


call 


PFSPEC 


; yes so print filespec 




■or 


a,i 


; put drive co^te in filespec buffer 


; search for next match in 


this user area 


; print the filespec 




NXIFIL avi 


cSrcbH 






ovi 


CFrStr 




lii 


d,FCB 






Ixi 


d,FSPEC 




call 


BDOS 






call 


BDOS 
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; set return code to successful 

mi C;HCode 

111 d.RCODEO 

call BOOS 
; return fron PFSPEC 

rflt 
; return tbe next drive in the drive psth Id a 

* 
f 

; initialize for first driva in path 

PATHF m cCurDrv ; get current drive code 



call 


BOOS 




uu 


a 




lii 


h, DRVFLG 




mov 


Bira 




Ui 


hrDEVOFF 




vri 


D,4bh 




; get next drive in path 




PATHK 1x1 


hpDRVOFF 




mov 


a,i 




inr 


1 




EOOV 


Di,a 




^i 


50h 




j« 


RETEND 




Ixi 


h.SCBPB 




DOV 


i,a 




ini 


b 




DlVl 


iL.Oh 




DVi 


cGetScb 




Ixi 


d.SCBPB 




call 


BDOS 




cpi 


Offh 




L 

]1 


RETEND 




mov 


b,a 




cpi 


Oh 




i^ 


dETliG 




Ixi 


d, drvflg 




Idax 


d 




m 


oa 




tnu 


b 




JM 


RETDRV 




; check if default drive has 


CfiKFLG Ixi 


d, DRVFLG 




Idax 


d 




ani 


OfOh 




qii 


OfDh 




3^ 


FATHN 




Idax 


d 




aiov 


b,a 




ori 


DfOh 




stu 


d 




; return drive code of cu: 


:re 


RETDBV Dov 


a,b 




ret 






FlTEND nvi 


a, Oh 




ret 






; EXIT 






EXIT ret 






; filespec buffer 




FSFEC db 


P 

* 




; 'where' version number 




WESZ db 


'vl,25' 




; sob parameter blcdE 




SCBFB 






SCBOFF db 


J 1 


^ 
I 


SCBCOD db 


J f 


I 


SCBVAL dir 


f t 


+ 
t 


; drive flag 






DRVFLG db 


f t 


i 



add drive code offset 

point to drive flag 

set flag, lov bits to drive code, high bits to 

point to offset of current drive in path 

set offset to first drive in path - I 

point to sch offset value tor previous drive 

get the offset 

set offset for current drive 

put offset value of current drive 

is current offset pointing past last drive in path? 

yea so return 

point to offset in scb paraneter block 

put offset of current drive in scbpb offset 

point to get/set code in scbpb 

set for get operation 

get the current drive in the drive path 

point to scb parameter block 

18 it the end of the path? 
yes so return no more drives code 
store current drive code from path 
is it the default drive code? 
yes so check if default drive already returned 
point to the drive flag 
get drive flag 

nask off default drive returned bits 
ia it the drive code of the default drive? 
no so return drive code 
already been returned 

; point to drive flag 
get drive flag 
mask off drive code 
has it already been searched? 
yes so get next drive in path 
get drive flag, searched bits are already 
store drive code of current drive 
mask on default returned flag to returned (Ofh] 
put default returned flag in drive flag 
at drive in a 
leave the drive code in a 

leave no inore drives code in a 



,CH,LF/S' 



offset byte, set to start of drive path - 1 

get /set code 

byte or vord value for set operations 

high nybble = Oh, default not searched 
; = Fh, searched 

; low nybble - default drive drive code 

; scb offset for current drive in drive path 

DRVOFF db ' ' 



end 



a 
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A program for paneless print positioning 



by Jim Butterfleld 

Copyright © 1988 Jim Butterfidd 

The usual way to set up a screen window on the Ci28 is to use 
the command window- It's easy and natural, and you can set 
up the size and other details on the spot. 

Bui WINDOW has its limitations. It seems to be devised for a 
one-time setup. When you enter the window, youU be at its 
top; great for clearing the area and staning a new display. But 
it's not too handy if you want to add new information to the 
bottom oi an existing window. 

1 suppose you could gel around this with the Escape sequence, 
CHR$(27)+"W'\ This would scroll the window down, leaving 
space on the top line for the new information. So, PRINT 
CHRS(27)+"W"+"newstuff" would print newstuff on a 
fresh line at the top of the window. But it seems unnatural for 
the screen to scroll that way. 

There's another approach to doing windows. It involves using 
the ESC'T ("top") and FSC-B ('^bottom") sequences. Here's the 
idea: if you place the cursor at the desired top/left positioning 
of the window; and then print ESC-T, that part will be set... then 
you can move the cursor to the bottom/right and print ESC-B to 
fix the rest of the window. And as a byproduct of this method> 
you'll be positioned at the bottom of the window.., a new line 
of data will scroll previous material upward. 

This method a!so works on the Plus/4 and Commodore 16, 
which don't have a window command. They do, however, 
recognize the ESC codes, as does the B-128. 

Program"windowl28" demonstrates this way of doing things, 
A series of numbers (your choice) are generated. If the number 
is prime, it will be put into the right-hand window. Otherwise, 
it is tested for division by two, three, five, and seven, and put 
into the appropriate window depending upon the smallest divi- 
sor. If the number is not prime, but has a divisor higher than 
seven, it's put into a window labelled HIGH. 

Here's how the program sets up the various windows. It first 
places the cursor at the appropriate top/left position, and then 
prints WS. Note that WS is defined in line 270; it contains all 
the ingredients for making a window. 



The first part of WS, line 270, is CHRS(27)+"T", That fixes the 
top/left part of the screen at wherever the cursor is located. 
Next, W$ contains cursor movements.., a number of cursor- 
rights followed by some cursor-downs. The cursor will now be 
moved a fixed distance to the desired bottom-right position... 
at which lime, W$ fixes this point with a CHR$(27)+"B". The 
window is sized, and the cursor is at the bottom. 

The program starts all windows at the same row, but positions 
the window horizontally with a TAB command in line 610. De- 
pending on the value of variable K (I to 6), the window will 
be set up at its proper location across the screen. Note that 
right after the TAB, we print W$ and bring i\\^ window into ex- 
istence. 

Windows are exited by printing two successive *'home" char- 
acters. YouMl see this in line 600, which is where we start to 
set up a new window, and line 640, where the program ends. 
(We really wouldn't want ''READY." to print within our win- 
dow). 

About the factor calculation: The loop from line 300 to 630 
walks through the range of numbers the user has requested. 
Array F() contains a list of factors: two, three, five^ and seven, 
and the loop from 320 to 350 tries them all. 

Before we do this trial division, however, we do a special 
check for the 'root factor.' For example, two divides by two... 
but we don't want to put it in the *twos' column, because it's 
prime. So line 310 tests for these low numbers. 

If we don't fmd a factor of seven or lower, we must try trial di- 
vision. The smallest possible factor is now eleven, and the 
highest is the square root of the number in question. We need 
to try odd numbers only... and this we do in the loop from 390 
to 420. 

The program is set up to use a 40-coiumn screen. If you have 
80 columns, you might like to try modifying the program to 
allow more columns... or to make the existing columns bigger. 



ne listing "windowI2S" appears on page 53. -Ed. 
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The Edge Connection 



Comparing three CI 28 assemblers 



bv Joel M.Rubin 

This is a comparison of three assemblers available for the 
CI28: LADS (compute! U.S. $16.95 if typed in. $29.90 with 
disk, compute! Publications. P.O. Box 5038, F.D.R, Station, 
New York, NY I015U); Buddy (Pro-Line, approximately $30 
in U.S, stores under the name "Power" from Better Work- 
ing/Spinnaker, Spinnaker Software Corp.. One Kendall Sq., 
Cambridge, MA 02139); and Merlin 128 (U,S. $69.95 direct 
by mail, less in stores). Roger Wagner Publishing, Inc., 10761 
Woodside Ave, Suite E. Santee. CA 92071). 

LADS is in a COMPUTE! book. "128 Machine Language for Be- 
ginners", by Richard Manstleki. The book contains both the 
assembly language source code and a hex dump, with COM- 
PUTE! 's '^MLX" correction code, every 
eight bytes. (The hex entry program, 
MLX, is included in the book, and there 
is also compute! ^s basec proofreader, 
similar to Verifi/er, to help you type in 
BASIC programs, such as MLX.) 



Lads source code is written in the ta- 
miliar environment of the BASIC edi- 
tor. Thus, you can use any basic pro- 

gramniing tools which you may have, 

such as a search -and -rep I ace utility. Since lads lives relatively 
low in memory, at $2710, the length of source code may be 
limited, although LADS allows linked source code tiles. LADS 
has relatively few pseudo-ops. For example, you can set up a 
byte or a string, bul not a word (at least not very conve- 
niently). 

Also, even when you save the object code to disk, lads poke^ 
it to memory, at the location you specify. In one mode, you 
can use RAM 1, between $400 and Sffef, but this might still 
make things difficult if, for example, you were writing disk 
buffer code at $300. 

The big advantage of lads is that since you gel the source 
code, you can - if you are skilful enough - add features or 
modify the code to enhance LADS as you see fit. Also, seeing 
how a full-blown assembler is written is, in itself, a very good 
lesson in assembly language programming. The book is proba- 
bly wonh having, in and of itself, as a tutorial on 6502 assem- 
bly language. 



Seeing how a full-blown 

assembler is written is, in itself, 

a good lesson in assembly 

language... 



The power of Buddy 

Buddy, or Power, is written by Chris Miller, whose name can 
be found on Transactor^ i^ list of contributing writers. Buddy 
comes on a "Hippy/' with a C64 version on one side, and a 
CI28 version on the other. Actually, I should say "versions.*' 
There are C64 and C128 versions using basic editor source 
code, C64 and C128 versions using a separate editor, a C128 
version which runs under the C-Power "sheir\ and a CI28 Z- 
80 cross-assembler, which uses BASIC editor source code. The 
CI 28 basic editor versions include a simple search and re- 
place function that allows you to specify whether you want 
any occurrence of the string or only a word, but unfortunately 

doesn't allow you to specify a line 
range. The separate editor allows a 
reasonable number of word-processor 
style directives, such as block-move, 
search and replace, as well as hori7on- 
tal scrolling for lines longer than 40/80 
characters. 



Buddy has many more pseudo-ops 
than LADS. You can write code to be 

assembled at one address, but with la- 
bels at another address, which is useful if you are going to be 
writing disk buffer code, or code which is going to be moved 

r 

from one address to another. You can store tables as bytes, 
words, PETSCII strings, or in Commodore screen code. Unoffi- 
cial 6502 opcodes (but not those of the Z-80) are supported, 
and you can load or save parts of symbol tables between as- 
semblies. If you have a 1571, you can link files faster, by us- 
ing burst mode. 

Conditional assembly is supported, so that the same assembly 
file can produce object code for the C64, C128. viC-20, and 
maybe even the Atari 800. Perhaps the two most useful 
pseudo-ops are the .has directive, which permits you to link 
BASIC and machine language, even using symbolic SYS ad- 
dresses in your BASIC program; and the .out directive which 
pcnnils you to output bytes using your own machine code, 
(.out could be used, for example, to write a boot sector, to pro- 
gram an EPROM, or to save code to a tile in some format other 
than the standard one used by Commodore - e.g. with some 
sort of checksum, every so many bytes, as in "&" files: or 
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without the two-byte address header, as in standard GEOS pro- 
gram tiles; or with some sort of encryption, for copy protec- 
tion purposes,) If you are tired of coming up with label names 
for minor branches, you can use "+" and "-" to refer to for- 
ward and backwards references. 

One minor complaint about the .bas pseudo-op: when you give 
a symbolic SYS address, Buddy automatically adds an extra 
space after the SYS token. This is unnecessary, and it should be 
left to the programmer to decide. 

A more important deficiency of Buddy is the lack of a usable 
macro language. Buddy does include three pre-existing 
macros, which can: compare two indirect addresses, fill an 
area of memory, and move memory. In theory, there is room 
for five new user-definable pseudo-ops. Unfortunately, the 
manual shows how lo define a pseudo-op that will print out a 
message on each pass. To make good use of these user- 
definable pseudo-ops, what you really need to know is how to 
evaluate an operand, and how to put a byte into the object 
stream, and this information is not in the manual. You do get a 
list of labels used in the assembler, so I guess it is not impossi- 
ble to trace ihings down, but it won't be easy. 



commands to move and copy lines, and to find or change 
words or strings in a line range, with or without confirmation 
of each change, and with a wild card character available in the 
find string- The editor automatically tabs lines into: 



LABEL 



OPCODE 



OPERAND 



COMMENT 



Ir can be useful lo be able to program 
the Z-80 outside of cp/m, especially if 
you want to move memory around, 
and having a cross-assembler makes 
this possible. It might be nice (o have 
this assembler support 8080 mnemon- 
ics, for those of us who have the 
disability of having used the CP/M 2.0 
assembler for a while, and who, there- 
fore, use Inlel mnemonics except for 
the unique Z-80 instructions. 



format. If you don't have a label, you must leave one space. 

The ''alt" key is used for keyboard macros. For example, 
ALT-a defaults to CONTROL-B/SPACE/LDA. Since Control-B goes 
to the beginning of the line, ALT-a puts "LDA" in tiie opcode 
column. The altkey definitions and several other features can 
be changed and saved lo disk. Keyboard macros, by the way, 
are very fashionable just now, and there are all sorts of books 
and packages on disk for such programs as Lotus 1-2-3. The 
PBS program, "Computer Chronicles,'' just ran a show on key- 
board macros, and one person had even written an adventure 
game in terms of Lotus 1 -2-3 macros. A chacun son gout! 

Merlin is a macro assembler Macros are, essentially, tem- 
plates for strings of assembly language instructions and/or as- 
sembler directives, into which you insen variables. For exam- 
ple, to do a whole bunch of two-byte 
additions, you could write: 



It can he useful to be able to 

program the Z-80 outside of 

CP/M, especially if you want to 

move memory around, and 

having a cross-assembler 

makes this possible... 



DADO MAC 
CLC 

LDA ] 1 

ADC ]2 

5TA 11 

LDA ]1+1 

ADC ]2+l 

STA ]1+1 
<« 



The disk also includes C64 and CI 28 programs to convert Ba- 
s\c editor source code to separate editor source code, and (he 
source code for a disassembler. 

The magic of Merlin 

Merlin 128 is the latest incarnation of Glen Bredon's public 
domain (freeware?) Big MAC assembler for the Apple If series- 
A less expensive Commodore 64 version is sold separately. 
When you boot up Merlin 128 (in 80-column mode only!), 
you find a menu which pennils you ^o load, save, gel a cata- 
log, and do several other things. You create code by going to 
the editor. 

The editor has two modes: an "immediate command" mode, 
in which you give such commands as "asm"; and a full- 
screen editor Eiiode, which is used for all input of text. (The 
C64 version uses a line-oriented editor.) There are block 
move, find and replace, and other similar commands, along 
with a half-screen mode in which the ten bottom lines are 
frozen. Certain editor commands can be undone (a feature 
word processors should have!). Immediate mode also includes 



Then, if you wanted to two-byte-add TEMP to $1234, you 
could simply write: 

»> DADD.S1234;TEMP 

Or. for example, let us suppose that you were writing a fig- 
siyle Forth interpreter. The macro: 

HEADER MAC JOLDPC = * 

TXT ]1 ] LENGTH = ]OLDPC-* 

BACK UP * TO JOLDPC 
BYTE WITH LENGTH ]X 
LAST BYTE HAS HIGH 
BIT TURHED-ON 

DA IVLIST ]VLIST = ] OLDPC 

<« 

will maintain headers. For example, 

>» HEADER, 'forth' 



DS 


- ] LENGTH 


DFB 


] LENGTH 


DCI 


]1 



gives you the Power equivalent of: 
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.byt 5;length of "forth" 
.asc "fortH";note H has high bit 
turned on 

.wor last 'header 

excepl fhal the Merlin macro automatically computes the 
length of five, and keeps the address of last'headen 

Here, the labels |VIJST. ioldpc, and jLENGTH are variables - la- 
bels which can be redefined. In Merlin 128. there are also lo- 
cal labels whose scope is only between two global labels. 

Merlin also has conditional and loop structures, and Merlin 
128 has a five-byte floating point pseudo-op. but it only takes 
integer arguments. You can gel a printout of how many proces- 
sor cycles are used by various routines, but there are inherent 
ambiguities - some ops take more time if a page boundary is 
crossed at run time, and there is no way to test this at assemble 
lime. Merlin doesn't have the equivalent of Buddy*s .out. .bas, 
or .sen It does have one user-defined pseudo-op. 

One deficiency of Merlin is thai although it has many ways of 
defining text, none of them really cotresponds to Commodore 
PETSCll. The TXT directive uses chr$(65) for "a", but chr$(97) 

instead of chr$(l93) for "A", (There 

is a directive for turning on the high 
bit of text - if you use single quotes, 
you don't gel the high bit: if you use 
double quotes, you do get the high 
bit.) The difference between chr$(97) 
and chr$(l93) does not really matter if 
you are printing to screen, but it does 
make a difference when you scan the 
keyboard. You can use the user- 
defined pseudo-op i'or PETSCtI strings, 
and. indeed, the disk contains the 
source and object code to do so. 



One version of Sourceror 

disassembles to memory and 

can handle about 6K of object 

code; the other uses the disk for 

temporary files, and can handle 

$7f0() bytes of object code... 



ware's mae 64 are compatible with one another. 1 doubt that 
anyone except Commodore itself could promote such stan- 
dards, and don't hold your breath! 

Disassembly with Sourceror 

Merlin includes a labelling disassembler. Sourceror. This dis- 
assembler is more difficult to use than the disassembler which 
comes with Buddy, but it is likely to require less post-ediling 
of source code. When you use Buddy's disassembler, you 
specify the area and bank of memory to be disassembled, wait 
a few seconds, and the source code shows up in memory, in 
BASIC editor foTTtiat (with line numbers corresponding to the 
address in decimal). The disassembler will not stop when it 
hits a table of addresses, or text. and. therefore, you are going 
to have Jo edit this source code. 

With Merlin's Sourceror, on the other hand, you load in a disk 
file (or choose an area of memory in bank - you can specify 
an offset, so that the byte in SaOOO really belongs at $2000) 
and then you go through the program, telling Sourceror where 
to disassemble, and where to interpret the memory as address- 
es, bytes, or text. If you make what appears to be a mistake, 
you can back up. Alternatively, if you hit some fill bytes that 

are irrelevant to the rest of the pro- 
gram, you can skip over them. There 
is a directive to interpret two bytes as 
an address- 1, (which is very typical of 
6.^^02 programming - look at the BASIC 
ROM), or as an address in reverse or- 
der, high byte first. The disassembler 
will properly interpret 2C A9 01 as: 



HEX 2C 

LDA #$01 



Merlin can link source files in several ways. You can maintain 
libraries of macros. Ordinarily, it assembles to a buffer at a 
fixed address, and you then save to disk from the menu. But if 
you don't have room to do this, you can assemble directly to 
disk. Both Merlin 64 and Merlin 128 have their own Apple- 
style monitors, and Merlin 128 also allows access to the more 
useful ROM monitor. Merlin 128 can also create relative object 
files, which can then be linked together at any given address. 
(You can specify in the source code of a relative file that an er- 
ror condition will result if the object is loaded above a certain 
address.) UnfoHunately. there is no standard format for rela- 
tive object files on the C128. 

If you have Joe Smith's Fortran compiler for the Atari ST, its 
relative object files will, most likely, be compatible with the 
relative object files put out by Digital Research's CP/M-68K 
relative macro assembler, and the same is true of CP/M-80. MS- 
DOS, AmigaDOS, Unix, et. al. 1 am, however, virtually certain 
that no two of the relative object files put out by Merlin 128, 
Abacus '\Super C' Pro-Line ^'C Power," and Eastern Sofl- 



" instead of BIT $01a9, but if \t\ an EOR 
instruction which follows the 2C, youTI have to do that by 
hand. Sourceror will also correctly handle both the Kernal and 
BASIC ROM versions of PRtMM. (This is probably because DOS 
calls under Apple ProDOS have a similar formal of JSR to ad- 
dress followed by data,) There is a file of standard labels, such 
as CHROtiT, which Sourceror uses to do its labelling. This list 
can be edited. 

One version of Sourceror disassembles to memory and can 
handle about 6K of object code: the other uses the disk for 
temporary files, creates multiple source files, and can handle 
$7fOO bytes of object code. One suggestion I would make is 
that future versions of Sourceror have the option of making 
use of expansion RAM modules, which might speed things up. 
(Actually, what should be done is that the Kernal ROM should 
be rewritten to allow access to and organization of expansion 
RAM as a RAM disk,) 

The disk also includes programs to generate cross references - 
showing where each source label is defined and referenced; to 
format a file - so you can use the editor as an inferior word 
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processor; xand to print the assembly to a disk fiie, instead of 
to the printer There is source code given for sample programs 
and routines, including a 1571 disk copier (which uses ul and 
u2, instead of hurst mode - so k could he faster) and a disk 
sector editor. The program comes on a 1571 disk, but no file 
goes past side 0. However, Merlin is the slowest and largest of 
the ihree assemblers, and to load it and then do a long assem- 
bly> with lots of linked files, would be very slow on the 1541. 

Head to head 

None of these assemblers use any sort of copy protection - 
perhaps because students of assembly language might regard 
copy protection as nothing more than a tutorial, to be disas- 
sembled, understood, and. of course, cracked. Or, perhaps, as- 
sembly programmers wilt empathize with the plight of the 
poor programmer denied his just royaUies (more so than com- 
piler programmers?). 

All in ail, 1 would say that Merlin is the most tlexible of the 
three assemblers, with Buddy having certain advantages with 
regards to its .out and .bas directives, and lads having the ad- 
vantage of the complete source code being provided- As far as 
manuals is concerned, the LADS ^'manual*' is the best, al- 
though it is not really a manual so much as a tutorial on as- 
sembly language. Merlin has a fairly complete manual, but it 
has no tutorial infonnation on 6502 assembly language. The 
Buddy/Power manual, at least the one provided by Spinnaker, 
has the least complete information; as I have said, the docu- 
mentalion of user-defined pseudo-ops is useless. It does have a 
small, but we 1 1 -organized summary of both 6502 and Z-80 as- 
sembly language. 

A few final thunghts 



! ) Since the CP/M Macro Assembler can do 6502 machine lan- 
guage to some exieni using a macro-lib Hie, maybe one could 
write 8080 or 7-80 assembly language in Merlin, using a 
macro tile. 

2) Back in January 1986, Yves Han wrote a C64 assembler for 
compute! *s Gazette, as an extension of the BASIC interpreter 
Han poked the rask^ rom into RAM, and then modified it, and 
added extra code. This is harder to do. of course, in the 128. 
Assembler op-codes and directives were tokenized. and you 
had to use a BASIC FOR-loop to get the three passes the assem- 
bler used- The advantage of this assembler was that you could 
use the full power of basic. For example, if you wanted to as- 
semble rhe length of aS, followed by a$ reversed, you could 
just write: 



100 byte len(a$) 

110 for j= len(a$) to 1 step -1: 
mid$ (a$, j,l) :next 



byte 



Furthermore, having this as a subroutine, you could use this as 
a macro. This assembler is very fast, although it can't print out 
listings. I wonder if anyone else has considered an assembler 



where you could use basic operations within assembly lan- 
guage. (1 notice that bbc basic, which runs on 6302-based 
Acorn computers, has an assembler built in, but I don't know 
if it allows this sort of manipulation,) 

3) 6502 Fonhs generally include a version of William Rags- 
dale's public domain reverse Polish assembler, (e.g. 5 # Ida, 
instead of Ida #5) This is not a stand-alone assembler. Forth is 
a language in which programming involves defining new key- 
words in the language, and the assembler is used when you 
need to write a word which will perfonn more quickly than its 
pure Forth equivalent. 

While this is only a one-pass assembler, designed for rela- 
tively small routines, it does have words to allow you to do a 
"while" loop, or an "if-else-endif" type branch. (The assem- 
bler saves the address of the branch instruction, and when it 
comes to the keyword which tells it how far to branch, it pokes 
that infonnation into the branch instruction.) Since the assem- 
bler is written in Forth, you can always add new keywords to 
it in Forth; thus it is a macro assembler. (Forth uses a stack to 
pass parameters.) Has anyone thought of writing a two-pass, 
Ragsdale-like stand-alone assembler? □ 



windowl28: See article on page 49. 




KK too print "cl28 window deno jix butteifield" 




CH no dm f(4} 




FN 120 Ma 2,3,5,7 




FC 130 for j=l to 4:read f(j);neKt j 




OL 140 print 




OC 150 print "(piclt factor range, eg, froo 77 to 392)" 




CN 160 print 




IF 170 input "froDi";f 




TA IBO input "to";t 




M) 190 if t>f and f>0 and K99999 goto 210 




JJ 200 print " ,. try again ..":goto 140 




HH 210 f=int(f) 




DE 220 print "(clr} fron\'f;"to";t 




DK 230 for ]=! to 4 




ID 240 print tal)(j*6-5);" /";f(i); 




HN 250 next j 




MP 260 print tab(5*6-5);'^ /high";tab[6*e-5);" prii»" 




KC 270 wS=chrSf27)+'^t(6 right}{10 down)"+chrS(27}+"b" 




OF 300 for j=f to t 




DE 310 if i<4 or j=5 or ]=7 or j=ll goto 590 




AA 320 for k=l to fl 




HH 330 s=f[k);d=]/3 




IL 340 if d=int(d) goto 600 




DE 350 next k 




10 360 k=5 




HP 370 il=sqr(i+.5 ;1=11 




HD 3B0 if IKll goto 590 




HP 390 for 1=11 to 11 step 2 




U 4D0 d=i/l 




OP 410 if d=int(dl goto 600 




HI 420 next 1 




CN 590 k=e 




HN 600 print "{homellhotteKdown)" 




KM 610 print tab k*6-5);M5 




EB 620 print str$(j); 




IF 630 next j 




HP 640 print "{bcDe){hooe}(13 down}" 


□ 
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A Tale of Two Cartridges 



Final Cartridge III vs. Action Replay Mk. IV 



Review by Noel Nyman 



The Final Cartridge III. $54.99 

Action Replay Mk. IV, $59.99 

(prices in U.S. dollars) 

Both cartridges distributed by Datel Computers, 3430 E. Trop- 
icana Ave. Unit #67, Las Vegas, NV 89121 

These cartridges are aimed at different audiences. The fc-ITT is 
billed as "a powerful cak ROM-based operating system for the 
C64 and C128." The emphasis is on ^'keep it simple" for the 
beginner, while giving all users extra features such as a 
notepad and calculator available as Vindows/ 

The Mk. IV is advenised in full page» four colour magazine 
ads as "the ultimate backup cartridge," The drawings show a 
futuristic space vehicle cartridge '^docking" at the C64 expan- 
sion port. 

In spite of the differences in marketing, the cartridges have 
much in common (see the comparison chart accompanying 
this review). 

Final Cartridge 111 

The FC-lir comes in a box neariy the size of the C64 itself, 
slickly printed with color pictures of various computer screens 
and descriptions of features, A carrying handle is provided, in 
case you find the need co tote a two by three inch cartridge 
around in a eight by twelve inch box. 

The large box is necessary for the documentation, which 
should win an award for originality of format. The pages mea- 
sure about eight by twelve. They are loose in the box, and 
punched with two holes on the eight inch side. Metal tabs are 
provided to hold the pages together. 

Each piece of paper has four document pages printed on it. If 
folded in half, the collated pages would make an average sized 
booklet Unfortunately, if you did that with the FC-in docs, the 
page numbers would be scattered all over the place. 



The documentation is clear and easy to read, though occasion- 
ally brief. Some commands described are not mentioned in the 
summaries, which makes looking them up difficult. There are 
a few awkward phrases, typical of manuals translated from 
one language to another (FC-m originates in the Netherlands), 
Some of the diagrams do not correspond to the actual screen 
displays. More on this later. 

The cartridge is the usual black shell with a few surprises 
added. There are two square switch buttons identified as '^re- 
set" and "freeze." A small red LED lights when the EC -in is ac- 
tive and goes off when the cartridge is 'killed.' 

On power-up, you see a menu bar across the top of the screen 
in place of the usual start-up screen. This bar controls several 
pull-down menus which, in turn, control the cartridge options. 

You select one of the bar options by 'pointing' at it and *click- 
ing/ The pointer on the EC-ni is a coloured arrow. You move 
the arrow using a mouse, a joystick, or the function keys. Once 
you've pointed at an item, you select it by 'clicking' ...pressing 
the mouse button, the joystick fire button, or the Commodore 
logo key on the keyboard. 

The choice of the function keys instead of the cursor keys to 
move the pointer is frustrating. 1 kept hitting the cursor keys 
out of habit. I often overshot my target when using a joystick. 
The pointer speed and acceleration can be changed. But it 
can't be slowed enough to let joystick novices such as me op- 
erate efficiently. 

Windows arrive 

EC -III brings 'windows* to the C64, common in other computer 
operating systems such as the Amiga and Macintosh. A win- 
dow is a box that appears on the screen, and is used to perform 
an operating system function. If other information is already 
on the screen, the current or active window overlaps it. You 
can move windows around and display several at one time, al- 
though only one will be active. When youVe finished with the 
function controlled by a window, the window disappears and 
whatever screen information was under it is restored. 
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'rrr 



Cartridge comparison chart 



Window driven 
CJock/aJarai 
Calculator 
Notepad . =- 

^. 

Printing 

Low -res screen 
High -res screen: 
"negative" print 
change size 
print sideways 
print sprites 

Disk operatioas 

Fast load 
Fast save 
Fast formal 
"Wedge" comrnands 
File copy 
Diskcoj^ .^^^ = 



Freeze 

: : : 

Backup memoiy 
View sprites in memory 
Save sprites 
Change sprites 
Disable collision det 
Swap joystick pons 
Add "autofire" 
Save screen to disk 
Poke memory 
Modify texl 






^ \ ^ ^ A A A 






rr ^> ^^ V^ ^ 









* 

* 
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^\ \^ \\ ^ \ \ ^ ™ 

^■l. •. •. •. •.•.•.•••. •. 

itfi\ \ - - .. 

\ ^ ^^ J \ \ \-^ \ w w^ ^ WW 



\ \ \ w \ 

\ A w w^ 



* 

* 
* 



• rr •. r rr rr ^A rr rr. 

■■■■ ■■ ■■ ^^^ ^ ^^ ^ ^ ^ ^ ^ ^ ^ 



* 



\ \ \ \ \ \ W WW W" 

fix -- - ^ < > ■.-'^, -■.^^■. i^ 



\ ^ \ w w \ wwww w \ ^^w■ 

•.•.•••. w \ w w w \ \ \ \ ww^^w' 

\\w \ \ \\ \ >>^ 

jr- - \ \ \ www \ w\ \ \ \ ' ^ ■ 

^^ •.•••. w\ \ w\ \ \ \ 

^^ \ \ w w \ w 



* 

*(5) .-r;-= 

^ i ■^^ ^.^.^^." ." .^^ 

• ^ •. •. •. r r. r ^w rr.\ •. A A\ A\ 

^ ^ \ ^ \ ^k ^ ^ A\ w ^ A\ ^^ A 
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(I) In some games, sprites definitions are changed pari way down the 
screen using a "raster iniemipt" routine. Depending on the raster location 
al the moment of freezing, some sprites may not appear on the hard copy. 



\ww-X Xv •. ^\ •. vr V w V 



(2) The MK-IV offers two fast leading routines; see lexL ^^^ ';; \yi r: : . 

(3) Some of ihe si^dard wedge commands are available in the FC-lli by 
using unusual syntax. Sending DOS commands from BASIC follows the 
Simons' BASIC syntax. For example, to see a disk directory, you type: 
DOS "$ 



■-'^■;" 



(4) The FC-m can save any portion of memory with the MLmonitor Bui, 
the user must identify the starting and ending addresses for the sprite. 






(5) Limiied sprite editing: flip, erase, mirror, and reverse. . ; , ; == 

(6) "f^kes" or parameter changes can also be made through the Mt moi*- 



The advantage of windows is that a computer novice can oper- 
ate the system quickly. No need to learn complex commands 
like load " $ " , 8 to view a disk directory, for example. 



To read a disk directory, you point to the ^'utilities*' option on 
the menu bar and hold the 'clicker' button or logo key. Five 
options are displayed, including "disk." Move the pointer 
down until the disk option is highlighted. Releasing the clicker 
causes the Disk Operations window to appear on the screen. 

The window, which takes up about half the screen, is filled 
with gadgets. The largest one is the window's top border, a se- 
ries of horizontal lines. By pointing at this gadget, holding the 
clicker, and moving the pointer, you can 'drag' the window to 
any location on the screen. This is typical of windows as used 
on other computers. 

There are three DlR gadgets, each with an '8' and '9* gadget. 
To get a directory from drive 8, point to and click on the '8' 
gadget for one of the dir's. The ^8* will be highlighted. Then 
point to the DlR and click. A new window will appear, with the 
disk name and the first ten directory entries listed. Two arrow 
icons [et you scroll up and down through the directory. 

At the bottom of the new window are two additional gadgets, 
SORT and READ. The SORT gadget is not mentioned in the doc- 
umentation, and the diagram of the directory window does not 
show it. If you click on SORT, the read gadget is replaced by 
LINE. The files' listing order doesn't change. 

If you select a file name by pointing/clicking on it, then click 
on LINE, you'll be given the option of adding a line above the 
selected file name. Now, when you click on SORT again you'll 
be asked if you want to write the directory back to the disk. 
When I tried that, all the windows vanished, the computer 
locked up, and I had to reset with the cartridge switch. Perhaps 
there is a way to sort the directory with the undocumented 
SORT gadget, but T couldn't find one. 

The READ gadget is used to re-read the directory when you 
change disks. An alternative is to change disks, then call up a 
second window using a different directory window. The sec- 
ond window will overlap the previous windows. 

The '^exchange'' icon (a bright square overiapping a dark 
square) is used to exchange the top, 'active' window with the 
last active window. The window now on top becomes the cur- 
rent window (usually, see the exception below). Or, if the op- 
tion you want on an inactive window is visible, clicking on it 
will sometimes make its window active and initiate the action. 



The disadvantage of windows for the experienced user is that 
you have to use the pointer to access everything, even if you 
know faster methods. Another disadvantage unique to FC-in 
windows is that they are only available in the 'desktop' mode. 
You can't call the window functions from a basic program or 
in direct mode from the basic screen. When you exit to ^desk- 
top' from BASIC, you lose anything in basic memory. 

Instead of icons {little drawings that somewhat resemble the 
options they represent), the FC-Ui uses mostly 'gadgets," small 
blocks with real words inside them. 



The '*de-select" icon (a bright square with a dot in it), is used 
to remove a window from the screen. This does not remove it 
from memory, however. If you re-activale the window the old 
information re-appears in it. 

This may be an advantage... keeping old directory listings 
handy in memory for future reference. But for most of us, it 
adds another point/click sequence on the READ gadget unnec- 
essarily. The only way to completely initialize the windows is 
to exit to BASIC, then return via the DESKTOP command, or re- 
set the cartridge. 
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More disk operations 

From l^ie Disk Operations window, you can execute many 

coniniun disk commands, as well as a few new ones. "Fast 

format'* lakes about 28 sec- 

onds- It gives you a prompt 

window, reminding you that 

this command will wipe out 

existing data, with the opnon 

to abort. Again, the pointer 

must be moved and clicked to 

either continue or abort the 

format. 

When you selecl fasi format, 
the name of the last disk read 
appears in the "from" win- 
dow. If you dun'l select that 
window and type in a new 
disk name and ID, the disk 
will be formatted using the 
name and id of the last disk 
vou read. 



A simple calculator window is also available. It does four- 
function math with a memory. Fortunately, you can enter num- 
bers from the keyboard rather than by pointing/clicking their 
gadgets, although that works too. The calculator does not in- 
clude square root, per cent, or 
memory +/- as shown in the 
picture on the front of the FC- 
m box. 
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''Empty'' performs a 'short New.' which reformats the directo- 
ry lo 'erase* all disk files. You can also rename and scratch 
files, validate or rename the disk, and read the disk status. For 
most of these commands, you'll need to select the appropriate 
gadget, then select ihe DO gadget ro perform the command. 

RUNning a file can be more complex. First, you select the file 
10 be RUN by poinUng/clicking. Then you click on the run 
gadget and the DO gadget. FC-lll will pop up a new window re- 
minding you ihal you'll leave the desktop. If you click on the 
RUN gadget in ihe new window, FC-IU will switch to BASIC 
mode and LOAD and RUN the file. 

As a challenge, FC-lll does not identify the file types in the di- 
rectory. This makes it easy lo try to RUN sequential files. The 
system doesn't check for this possibility (assuming that you've 
memorized at! your disks" file types, I guess), and will try to 
RUN the sequential file. The user is left with a flashing light on 
the disk drive and a "?file not FOUND ERROR" message on 
the BASIC screen. Very cryptic indeed for the novice, who will 
be frustrated by ihc fact that the file obviously is there in the 
directory window! 

Also, if you have several directory windows, you can highlight 
a file in any of them for the RUN command- But, youTl gel a 
"no file selected" message if the dir window you've used 
isn't the active one in the Disk Operations window. 

Other FC-lll window options 

Another window lets you set a system clock in either 12 or 24 
hour formal and add an alarm as well. The docs don't tell you 
that you can't set the alarm unless you've already selected 
alarm mode in the clock pull-down menu. 



Another window lets you 
change some of the desktop 
preferences, such as screen 
colours, pointer device port, 
and pointer speed. The BASIC 
preferences window lets you 
add a keyboard click, key re- 
peat, defeat cursor blink, 
change the default device, 
and use the numeric keypad 
on a C128 in C64 mode. 
There appears to be no way 
to save the new preferences 
for fulure sessions. They have 
to be changed to your liking 
each time the computer is turned on. With all the pointing and 
clicking required, I soon settled for the default values. 

The Notepad option removes windows and gives the user a 
blank screen with a new set of pull down menus. Text can be 
entered and edited using the regular cursor keys. You can con- 
trol the line and character spacing, and select bold and propor- 
tional print, and wordwrap. The text is not limited lo a single 
screen, and the resulting file can be SAVEd to disk or tape and 
recalled !ater in Notepad mode. It can also be printed. 

The FC'IU supports Commodore. RS-232 serial, and Centronics 
parallel printers. The latter two types require a special cable 
'^available from your dealer" That may be true in Europe, but 
here, the few local Commodore dealers knew nothing about 
any special cable. But it is available mail order for $20 US, 

1 tested Ihe cartridge with a Star Micronics SG-io and a Micro- 
Graphix MW-3.^U interface set for Commodore emulation. This 
combination usually works well as a ^Commodore' printer. 
The result was a plain vanilla printout of the text... no propor- 
tional spacing. The text did word-wrap properiy, in 80 colum- 
ns rather than the 64 columns used for the screen display. The 
printer locked up when I tried printing in bold. 

The Notepad text files are stored as prg types in PbT ASCn. 
The various options such as proportional print and line spac- 
ing, are screen options only and are not SAVEd with the text. 
Text files from other sources can be brought into the Notepad, 
provided the file is type PRO. Since the first two bytes of a pro- 
gram file are the load address. Notepad automatically removes 
them. If your file was originally a sequential type, the first two 
text characters will be discarded instead. There's no way to 
view a disk directory from Notepad mode. 
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FC-lIl BASIC additions 

The FC-lJl adds several features to BASIC. LIST scrolls up as 
well as down. A Shift-L in a REM normally defeats LiSTing, 
Shift-L with the FC-UI in place LlS'Hi as OFF, so the balance of 
the program will LIST properly. The OFF command is docu- 
mented as part of the trace off and bar off options. But, 
used by itself, it appears to be equivalent to KILL, which 
disables the cartridge. 

Also handy are the DUMP command, which displays the values 
of all simple variables, and the array command which does 
the same for arrays, including string arrays. The DUMP com- 
mand has trouble with def fn*s. It confuses them with integers 
and uses the bytes that point to the definition address 
(low/high order) as an integer value {high/low order). 

The MEM command shows the total BASIC bytes available, and 
how many are used by program, variables, arrays, strings, and 
how many are free. Although the documentation claims that 
FC-II[ adds "24K bytes extra memory in BASIC." the mem com- 
mand reveals only the standard 38,9 1 1 bytes available. 

Trace displays each line of basic at the top of the screen as 
it's executed. TRACE can be slowed to a viewable speed using 
the CTRL key. although this will interfere with INPUT com- 
mands. Trace uses address 682 as a flag. Any non-zero value 
here will cause TRACE to be active. Some machine language 
programs are stored in this area, and their presence may trig- 
ger TRACE mode at inappropriate times. 

Auto also uses low memory. Location 681 contains 64 when 
auto is aclive. Locations 820/821 hold the last line number 
used and locations 822/823 hold the increment 

Programmers using FC-III should avoid locations 679-767 and 
820-827 since other cartridge functions may use these memory 
areas. 

Pack and unpack are the most curious BASIC add-ons. pack 
changes basic so it lists as: 

1987 SYS 2061 

The command moves the entire BASIC program up in memory, 
and adds a machine code routine to the beginning of the pro- 
gram. When RUN, the SYS command copies the BASIC program 
back to the nonnal smning location, changes a few vectors^ 
and RUNS the program. Machine language programmers may 
want to examine the code used to do this, since it must over- 
write itself to move BASIC back down. 

The program is simply put back in BASIC space to RUN, If 
RUN/STOP is used, the entire program can be LiSTed normally. 
This makes unpack unnecessary. 

MON enters a machine language monitor with all the usual 
commands. Added commands allow editing memory as sprites 



or text characters, and viewing common memory areas as RAM 
or ROM. The mouiror can operate on memory in the disk drive 
as well as the compuier. 

Bar allows displaying a menu bar at the top of the screen. 
This can only be done with a joystick or mouse button. The 
menu bar shows the definitions FC-UI gives the Tunciion keys. 
There appears to be no way to change these. Other options in- 
clude switching to the monitor, the desktop, or the freezer 
menu. 

Two pull-down menu options list the added basic commands, 
including some not documented, HELP doesn't generate any 
errors, but doesn't seem to do anything either. Replace Is 
more interesting. It uses the syntax 

REPLACE old, new 

where ''old" and "new" can be any variable name, BASIC 
command, or text in quotes. Any lines changed are listed as 
REPLACE executes. 

Bar off disables the bar for programs that object to its pres- 
ence. 

Disk commands 

The *dos' command is used as a "wedge", acting like the ">" 
or "@" character normally used. Giving the command ^dos' 
by itself will read the error channel. 



dos 



1 1 



command' 



sends the command to the disk drive. For example. DOS "$" 
reads and displays the disk directory to the screen. 

Dload and dsave perform disk LOAD and Save with no need 
for a ".8" after them. Dload is not the same as its C128 (or 
BASIC 4.0) namesake. It performs a BLOAD instead, placing the 
program at its original location address. Two similar com- 
mands are DVERIFY and DAPPENO. All of the 'D* commands 
can be entered as ^D' followed by the next letter shifted. 

APPEND (or DAPPEND) is uscd to add a program from disk to 
the program in memory. The usual stipulation is that the sec- 
ond program must have higher line numbers than the last line 
of the first program. To *avotd* this situation, FC-Hi includes 
the ORDER command, which moves lower line numbers from 
the appended program into numerical sequence with the origi- 
nal program lines. 

This creates a sort of merge. If the new lines make sense when 
executed with the old, the program will RUN. If both programs 
have the same line number, the new line is placed in sequence 
ahead of the old one. But, the old line is still retained in 
memory, and continues to execute. Editing, GOTO and GOSUB 
will see only the first, or newly added, line. This makes for 
strange and sloppy basic 
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The Action Replay Mk. IV 



My favoriic is LlNESAVE, which has ihe syntax: 



In contrast to the slick packaging of the FC-[ll, the Mk. IV came 
via mail order in a plastic bag inside a plain brown cardboard 
box. The cartridge shell is red plastic, with no labels of any 
sort. Two round black switches stick out the back at the right. 

The documentation is a saddle-stitched booklet, using good 
quality typewriter printing. The instructions cover three ver- 
sions of the cartridge. 

At power-up. you see a four-option menu. Selection is done 
with the function keys» and there are no windows. Fl fills 
memory with a known value. This aids in making frozen 
copies. F3 creates a 'normal reset', disabling the Mk. [V for 
software that won't load with the cartridge active. 

F5 calls up a utilities menu that executes DOS commands. The 
formal routine lakes only 13 seconds. The menu also accesses 
a full disk copier and a file copier. The latter looks remarkably 
like Jim Butterfield's "Copy-All." This menu also saves a spe- 
cial fast loader program to disk ^more later). 

The only exit tVom this menu is to "Fastload," the same as the 
final option of the first menu. 

Mk. IV BASIC mode 



LINESAVE "filename" , 8, startline-endline 

and SAVES a part of the basic program in memory. 

Copy and backup activate the built-in file and disk copying 
routines. 

The Mk. IV has some of the basic commands found in the FC- 
m (sec the comparison chart), although the FC-Jll is the clear 
winner in BASIC additions. 

The machine language monitor is virtually identical with the 
monitor in the FC-IU. but does not directly edit sprites or text 
characters. It does display memory as cbm screen codes, as 
well as PETASCn text, hex values, or assembly code. It will al- 
so display and allow changes to the 1/0 registers. 

To freeze or not to freeze 

Treezing' is a technique for halting a program in progress. A 
copy of the frozen computer memory can be saved. If that 
memory ^snapshot' can be successfully reloaded, the program 
will continue from the point at which it was hailed. See ^"How 
They Work" at the end of this article for the technical explana- 
tion of how this is done. 



Except for an added message and a change to white text, the 
Fastload screen looks like the standard C64 screen. No win- 
dows, no notepad, no calculator. 

You do have the usual disk wedge commands with the usual 
*@' syntax. @$ displays the directory, for example. The 
wedge uses the 'last device accessed' memory location 186, 
which can confuse it after printing; the @$ command will try 
valiantly to gel a directory from the printer. A @8 sets things 
right again. 

The *r entered in front of a file name will load the program. 
This is often done after listing a directory. As with the Epyx 
FastLoad cartridge, if the file is larger than nine blocks, you 
must space over the remaining digits. 

/5 ^'FILE" PRG 
will try to load a file named *^S." 

Boot will load a program, then SYS to the starting address of 
that program. Merge is a true merge, rather than APPEND, 
which is also supported. 

The line numbers of the program being MERGEd from disk can 
be changed as part of the MERGE command. 

The AUTO command has a small bug. Tf you edit a logical line 
that ends with a number, and the number wraps to the start of 
the next physical line, AUTO turns off. 



I first saw this as strictly a ^pirate' technique. Since the pro- 
gram is fully loaded when halted, all the copy protection on 
ihe disk is bypassed. The memory snapshot can be copied with 
any file copier and passed around freely. 

But there are legitimate uses for freezing. Most frozen copies 
take less time to load than the originals. Many commercial 
programs are incompatible with fast loading routines, and with 
them the improvement can be dramatic. Since the copy protec- 
tion isn*t used by the frozen copy, there's none of the head 
banging found on older commercial programs. 

If you use several options of the same program, you can freeze 
a version of each, after loading the necessary overlays, or se- 
lecting menu options. If you're a game player, you can freeze 
the game just before taking on the next adversary. If you loose, 
you needn't fight your way back through the lower levels 
again. 

Transactor does not condone theft of software by any method. 
Use of freezing cartridges on any programs you don't own is 
unethical. But legitimate owners of programs should know 
about aU the options they have for making the best u,se of their 
software. We're not telling the pirates anything new here. 
They already know all about freezing programs. 

Freezing with the FC-IIl 

The FC-Hi freezer menu can be accessed from pui! down 
menus or by pressing the "freeze" button on the cartridge. The 
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latter may be the only option if a program wonH load with the 
cartridge active. In that case, you use the KILL option to 
disable the cartridge, turning the red LED off. 

The freezer bar controls pull down menus to back-up the pro- 
gram in memory, change some game options, change 
screen/border colors, and print screen dumps. To freeze, just 
select "disk" or "tape" from the backup menu. Only the joy- 
stick or mouse will point/click on the freeze mentis. 

The frozen memory is saved to disk as two separate files. 
*TC" and "-FC." You can rename these files later. There *s no 
message given about file size before the save starts. You 
should use a reasonably empty disk since frozen memory often 
takes 150 disk blocks or more. 

YouVe returned to the desktop menu bar with no option to re- 
sume the frozen program. 

Freezing with the Mk. iv 

The freezer menu is accessed by the freeze switch. The switch- 
es aren't labeled, and if you push "reset" instead, youMl have 
to start over. From this menu, you can enter the monitor, get a 
disk directory, do some interesting sprite manipulations, save 
or print the hi-res screen, or back up the program. 

Before the backup is saved, youVe given several DOS options, 
including "directory" and "foimat." You're also told the size 
of the file to be saved and given three save formats: standard, 
turbo, and Warp*25. Files saved using "turbo" are standard 
DOS tiles with an optimized "interleave." the number of sec- 
tors skipped between two consecutive program sectors on the 
disk. Files saved in this way will ioad a bit faster with the Mk. 
[V or its fastload routine. They will load without the cartridge 
also, but inore slowly. 

The WaTp*25 uses non-DOS techniques to save files. They can 
be re-loaded very fast with the Mk. IV in place, or with a spe- 
cial loader program that's saved into the directory track on the 
disk using a special menu option. The Warp'''25 files are larger 
than turbo files. They require consecutive tracks on a disk, so 
may report a "disk lull" error when many free blocks remain. 
The Warp*25 files load much faster than any others. In fact, 
Warp*25 may be the Mk. tv's best feature. See the loading 
times comparison chart. 

Hi-reN screen options 

The Mk. iv allows you to freeze the program, then save the 
current hi-res screen in one of six software formats: Blazing 
Paddles, Koala, Advanced Art Studio, Artist 64, Vidcom 64, 
and Image System. Only mulli-coiour hi-res screens can be 
saved. 

Freezing may occur while the "raster" (the part of the video 
system that ^paints' the image on the screen) is mid-screen, re- 
sulting in strange images. The screen can be viewed with the 



F7 key before the save. You can restart the program and 'jog' 
through a picture to try for a better image. Stationary hi-res 
screens are easy to capture. Sprites will not appear on the 
saved image. 

The FC-lll does not have a screen save opHon. You can view 
the captured hi-res screen for printing purposes. Sprites are 
visible on the FC-lll captured screen, although the presence of 
some moving sprites will depend on the raster location. 

You can select among printer types, print density, the size of 
the finished product, and sideways printing. With my print- 
er/interiace, the various density options produced the same 
output. Size can be increased both vertically and horizontally. 
The default values are both M,' which produces an output 
about three by five inches. Increasing the horizontal value to 
^2* makes the hard copy twice as wide - a bit wider than a nine 
inch printer can reproduce. You can make a full size '2' by *2' 
image by specifying the "sideways" option. 

In the larger sizes, picture elements become larger and the 
gray scale hatching detail increases. The hard copy always 
starts with a comer of the screen. So it is difficult to get a large 
scale hard copy of objects in the center. You can enter the 
freeze mode to print low resolution screens with the same op- 
tions. 

You are retumed to the desktop menu bar after printing, with 
no option to restart the program. 

Gaming options 

Both cartridges offer several features of interest to game play- 
ers. Both will disable sprite collision detection. This may al- 
low you to survive unscathed in some games, although both 
manuals caution that many games do not use the built-in C64 
sprite detection systems. Both cartridges make the machine 
language monitor available in freeze mode, so changes can be 
made in the program. The Mk. iv makes this easier with a 
POKE mode. 

The FC-lll adds an *autofire* feature to the joystick fire button. 
It also will *swap' joystick ports in case you start with your 
joystick in the wrong place. Actually, this command changes 
the keyboard scan too, with fascinating results on programs 
such as Flight Simulator. 

The Mk, IV will search for and replace PET ascii text in 
memory. I was able to change "player" to ''sucker" in Beach- 
Head without the need to hunt for the text with the ml moni- 
tor. It Will not change hi-res text, of course, 

A real plus for the Mk, iv is its sprite mode during freeze. 
Memory can be displayed as sprite images, either hires or mul- 
ti-color. The sprites can be saved to disk individually, and 
loaded back into memory. They can be wiped out, inverted, 
mirror imaged, or flipped. The sprite address is displayed, fa- 
cilitating the use of the ml monitor to save a range of sprites. 
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I extracted the rotating gun from Raid on Bungeling Bay for 
use in my own BASIC program. Then, I replaced the gunboai 
spriles with tiny Jump Men. This is great tun. But it would be 
more useful if the Mk. iv included a sprite editor 

CompaMMIity 



The FC-Hl is also the best for screen dumps to the printer, both 
for options and its ability to display sprites. 

The Mk. IV gives game players more options, and wins the fast 
loading race hands down. If windows don't interest you, the 
Mk. IV is the better value. 



Frozen FC-Hl programs use a fast loader routine which conflic- 
ts with the Mk. IV. The turbo or standard Mk. iv frozen pro- 
grams can be loaded with the FC-in, 

The Mk. IV claims to be compatible with the 1541, 154IC, 
1571. and 1581 disk drives and the C64. CI28. and C128D. 
The FC-ITi works with the C64 and C12S. No list of disk drives 
is provided. I tested only the 1541. 

The Mk. iv command prompts and menus are printed in white. 
The SX-64 background screen color is also white. So, using the 
Mk, IV with the portable becomes more of a challenge. You 
can change the text color from some modes. The FCm prints 
in text color, so alt messages are visible. But the hires win- 
dows and menus are very hard to read on the built-in monitor. 

Final comparison 

So, which cartridge should you buy? If your goal is a simpler 
operating system, the FC-Ul is the clear choice. The window 
environment provides a (dare I say it) *'user friendly" atmo- 
sphere, free of arcane commands. Experienced users will 

quickly skip to the basic command screen iinstead. 
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The memory in the C64 and CI 28 is shared by ^veral sys- 
tems. The MPU {Micro Processor Unit) stores information in 
memory for use as program data and for screen display. The 
VIC (Video Interface Chip) looks at memory also to get the 
information to create a screen display.- " "'-^>; = =A=HpH==P;=^;v=f= 

^\^ ^ '■ - ^ . .. ^i .^,. - -,, -V. \>^> ;^^ 

- - , ^ ^^^ ' ' ^'f.J.'J^. 

. • ^ ........... . 

^ ^ ^ , ^\ \ ^i ^" t ^ ^"' ' J ^ J 

\ \ \ ^ •. www \ \ \ \ ^ 

Only one device at a time can access memory. The Vic chip 
has priority, and uses '"a technique c^Ied DMA (Direct 
Memory Access) to assert its rights to ram (Random Ac- 
cess or read/write Memory). When the VIC chip activates a 
special DMA circuit, the MPU is put on hold until DMA is 

..... \ \ \ WW •. •. WW ^ 
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The DMA line is also available at the cartridge or expansion^ 

port. Freezer cartridges produce their own DMA signal when 

. . the Ireeze button is pressed. This halls the MPU^^ IXi^'^i ^r= ;=;;ti=; 
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A new processor inside the cartridge Uikcs over. This sec- 
ond MPU has its own operating system in ROM mside the' 

^ cartridge, it usually has some ram in there also, ryd 



The cartridge mpu can read the keyboard^ joysticks, disfc 
drives, and make changes in the regular computer memory. 
On command, it makes an image or ^snapshot' of the com- 
ptiter RAM oh disk or tape-=. -"-h\ ^H/^ ^SkMAM^A:^-^'^^' 

. ^ ^ ^ •. ........ ^\\\ 
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;■ You can examine the innards <rf eiflier cartridge easily w^ 
the aid of a small Phillips screwdriver The usual snap labs 

: are misaii^ from the shells, and the cartridges come apait. 

. ^tsSy. The FC-iu is a complex system of integrated circuits. 

! The.Mk.TV is simple by comparison, owing largely to the 
custom SMT (Surface Mounted Technology) MPU/ROM chip 

...mouuled on the undersiifc of the board. , ;,,. i y^y i: 
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Be careful in handling either e>Lposed board. Both use mos 
chips, which can be easily damaged by improper handling. 
Also, note that the switches in both units are simply sol- 
dered to the circuit board with no other mechanical support-; 
Push gently on those switches. Heavy use may break the 
solder joints or the boards themsel^^s^ The exposed long 
metal sections of the Mk, [v switch may be more suscepti- 
ble to damage than tlw Mack buttons of the FC-ill. T ; 
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Brainstorm, BrainPower, Story Writer 



Word and outline processing for the CI 28 



Review by Marte BrengJe 

BrainSlorm /Brainpower 

Outline Processor/Word Processor for the CI 28 
$22 US for both programs 

Story Writer 

Easy-to-use story-writing aid, $12 US 

Available by mail-order from: 
Country Road Software 
702«4C.R. 143. Ligonier, IN, 46767 (219)894-7278 

Many people have trouble getting organized when they sit 
down to write. Students taking essay tests are often told to 
make an outline first, in order to help collect their thoughts 
and put them in some kind of logical order. That's not always 
easy to do, since many of us don*t think in 'outline form.' 

With the invention of word processors^ the physical act of 
'getting words on paper' became easier, but until recently 
there weren't many programs that could help with the organi- 
zation of the words ahead of time. Now writers can use an in- 
formation processor' or 'outline processor' like BrainStorm, 
and make the whole process amazingly easy and painless, I've 
used the outline processor in Microsoft Word, a far more ex- 
pensive and complex program, and I believe that BrainStorm 
is equally powerful, and certainly easier to understand. 

The Brainstorm disk contains BrainStorm 2.0 and BrainPow- 
en a small hut powerful word processor. You can choose 
which program you want from the colourful opening screen. 
Note that both programs are for the C128 only, in 80-column 
mode only. 

If you choose BrainSlorm, the first thing you'll see is a listing 
of the function keys for the program. These keys work from 
anywhere in the program, and let you manipulate files, check 
your outline for Mogic,' and change from one program to an- 
other. You can bring back a listing of the function keys from 
within BrainStorm by pressing the letter F. 

The idea behind a 'brainstorm' is simply to put down as many 
ideas as you can, up to the program's limit of 100. They don't 
have to be in any order, or related to each other in any way. 
The program gives you a yellow '^brainstorm box" to type in, 



which can contain up to 240 characters. Your words will scroll 
across the screen as you type. There are a few rudimentary 
editing controls available in the brainstorm box; the delete key 
works as you*d expect, but you toggle insert mode by pressing 
cursor-up. Pressing CTRL with the left or right cursor key takes 
you lo the beginning or the end of a line. Clr clears the whole 
box, and tab moves you across it ten spaces at a time. 

Once you've written down everything you can think of, you 
move to the next phase of the program, in which you begin to 
put the ideas in order. The program will show you the first 
idea on your list, with the second one displayed beneath it. 
You can then compare the two and decide whether they are 
similar or not, skip to other ideas for comparison, delete ideas 
you don't want lo keep, and move back and fonh among the 
ideas at will. Eventually, you'I! have compared all the ideas to 
each other and put ihcm into groups according to similarities. 
Even then, though, your decisions aren't cast in stone. You 
move on to what's called the *'trunk menu" in order to turn 
your grouped ideas into an oudine. 

The *'trunk menu" presents your ideas under headings that ini- 
tially are called '^Group I," "Group 2" and so forth. Each idea 
is preceded by a dash. At the top of the screen is a listing of all 
the available commands. You can get additional help by press- 
ing the Help key, and the BrainStorm function keys are also 
operational here. 

Now you begin lo edit your outline, lo put it into a logical or- 
der. Each individual idea is dealt with as a whole, and can be 
highlighted in colour by pressing cursor-up or cursor-down till 
you reach the one you want to work with. From there, you can 
move the idea to another spot in the outline, or edit iu or delete 
it, or add more ideas that go along with ii. You can also move 
or delete entire groups of ideas by highlighting the '*Group" 
heading. 

As in the brainstorm box, each idea may be up to 240 charac- 
ters long, although the whole idea might not show on the 
screen. If you'd like to see each idea in its entirety while 
you're editing, you can use the Extend command. This will 
display longer ideas as short 'paragraphs' so that you can work 
on them, but as soon as you're finished with the extended idea 
and move on, the screen will show only a portion of it again. 
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As you cdil Ihe outline. youMI want fo indent some ideas to 
make sub-headings. One really nice feature of BrainStomi is 
that each level of indentation is in a different colour This 
makes it very easy to check your outline to see if you've sub- 
divided it properly. {There is a provision for monochrome 
screens as well,) As you move ideas around, you may have to 
work a little bit to gel them indented or "ouldenled" to the posi- 
tions you want them to assume- Sometimes the program won't 
let you delete or change the indentation on a particular line un- 
less the next line beneath it is at an equal level of indentation. 
You may have to change that just long enough to deal with the 
preceding line, and then change it back. 

BrainSlonn uses some familiar word processing commands. 
You can search for a particular leM string, mark and return to 
your place, delete ideas singly or in blocks, and retrieve them 
from a l(X)-item buffer if you change your mind. In addition, 
the program lets you "collapse' the outline, so that only certian 
levels are visible on the screen. If you have a very long out- 
line, this can make editing much easier. Those levels aren't 
erased: they're just not visible on the screen at the present 
time. Once you've collapsed the outline, you can work on any 
particular level, even ones that aren't currently visible, by us- 
ing the ''show'' command. This will open up the area you se- 
lect, leaving the rest of the outline collapsed to save space. 
Once you're done, you use the "hide" command to collapse 
that particular area again. You can also use '"hide" to selec- 
tively collapse a particular section of the outline. Any level 
that has hidden subdivisions will be preceded by a plus sign, 
so you can tell where they are. 

Bach section of the outline can also be edited separately by go- 
ing to the ^'branch menu." This alows you to deal with one 
chosen area at a time without having the entire outline on the 
screen. 

When youVe finished with your outline, it's a good idea to 
press F2 to check its logic' This will tell you if it's in proper 
outline form (all the headings and sub-headings in order, no 
"division by one" errors, and that kind of thing). You can also 
arrange your outline according to any particular logical strat- 
egy you prefer (the screen gives some help on doing this). Td 
advise switching to the monochrome screen before entering 
iogic,' though, because otherwise the text appears in black on 
a dark grey background and is very hard to read. All errors in 
logic will be pointed out when you return to your outline - 
there will be flashing lines in the appropriate places. 

After youVe corrected the errors, you can view your outline 
on the screen by pressing ¥3. This will give you an idea of how 
it will look when it's printed out. You can change the page 
breaks if you like, and check to see if your outline needs any 
further editing. 

Once you've finally finished with your outline, you can print it 
out or save it to a disk (or both, of course). Since BrainStorm 
adds a "-/' prefix, your filenames can't be more than 14 char- 
acters long. The files can be saved as ASCn files if you put an 



exclamation mark at the end of the filename. The program also 
gives you a choice of making automatic backups of your files. 
This means that if you happen to save a file with the same 
name as one you\e already used, the old file will be preserved 
on the disk, wiih a .Hak extension on the filename. The fin- 
ished outline can then be used with BrainPower, the word pro- 
cessor. (The program disk contains a good example of a Brain- 
Storm outline: the outline for the entire program manual is 
there, and it's interesting to compare it to the finished manual.) 

BrainPower 

Brainpower is a small but powerful word processor, which 
you can enter directly from within BrainStorm. One of its 
main strengths, of course, is the ability to interface with Brain- 
Storm. You can merge your outlines directly into your text, or 
you can have the outline in a window at the top of your screen 
and scroll it from point to point as you write. This makes 
sticking to your outline especially easy. 

Brainpower is not a WYSIWYG word processor. Whether that 
makes a difference is, of course, a matter of individual prefer- 
ence. People who are accustomed to using SpeedScript, for ex- 
ample, will find the interface familiaL People who have been 
working with Pocket Writer may find that BrainPower takes a 
bit of getting used to. 

The screen can be customized to some extent. Tt comes up 
with white letters on a black background, and the background 
colour can be changed. The author suggests trying a blue 
background if you're using a colour monitor, I found that a bit 
too eye-boggling, and settled for dark grey instead. It would be 
nice if the character colour could also be changed. 

Ail the most commonly-used word processor commands are 
available. The cursor can be moved rapidly by pressing CTRL 
in conjunction with the cursor keys at the top of the keyboard. 
In addition, you can move ahead one word at a time by press- 
ing the Commodore key and cursor-right. There is no equiva- 
lent 'move back one word' command, though. Insert mode 
toggles on and off Alternatively, you can insert five or 20 
blank lines at the press of a key. Block move and delete, 
search and replace, reformatting by paragraph or ^*format all," 
change case, justification, file linking, and headers and footers 
are all available and simple to use. You can also mark your 
place and return to it, which is very convenient when you're 
editing text. The commands are invoked by pressing the func- 
tion keys or a CTRL-key combination, and pressing the Help 
key at any lime brings up a series of help screens that explain 
just about everything the program does. 

The program also includes some interesting features that are 
not commonly found in Commodore word processors, even 
those that are far more complex. You can bring up a simple 
four-function calculator, for example. You can view any file on 
a disk, including program files, although only the BrainPower 
files can actually be loaded. Pressing ¥5 to 'Moad file" also lets 
you rename or scratch any of the BrainPower files on your 
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disk. And, at^ an extra treat, you can hear J.S. Baches Invention 
#13. a brief segment of which is played when Brainpower first 
starts up. 

Formatting commands are imbedded in the text, and this is 
where people who are accustomed to Wysiwyg word proces- 
sors may have to make a few mental adjustments. The pro- 
gram comes with preset printer codes for underlining, bold- 
face, etc., but you may have to adjust those to match your par- 
ticular printer (Check your printer manual to find the appro- 
priate values. The Brainpower manual gives clear instructions 
for assigning the codes.) The printer codes are imbedded in the 
text by pressing the Commodore key in conjunction with a let- 
ter key, and the instruction will appear in reverse video on 
your screen, if you don't find the pre-arranged printer 
mnemonics to your liking, you can change them to whatever 
you wish. 

The program boots up with certain default values for top, bot- 
tom, and side margins. You can change them to suit your own 
preferences and save that configuration. Changing the formal 
of the page is done by pressing the left-arrow key at the begin- 
ning of a new line and then typing in the appropriate values 
(again, people who are familiar with SpeedScripi will find this 
procedure quite familiar). You can then reformat the docu- 
ment's appearance on the screen by pressing F3 or F4, if you 
wish. One quarrel that I have with the program is that no mat- 
ter where you set your left margin, the text appears ''flush 
left" on your screen. You could have a left margin of 50 and it 
would s;till took like it was at zero, but your lines would be 
very short. And the column number at the top of the screen 
refers to the cursor position relative to the left margin, not to 
its actual position on the screen. 

Brainpower saves files in SEQ format, with a ^'w." prefix. 
When you press "load file/' you get a window on the screen 
that brings up all tiles with the appropriate prefix. 1 have found 
that even if you rename a SEQ file from another word proces- 
sor and give it the appropriate prefix, Brainpower will not load 
it. Brainpower files will, however, load into other word pro- 
cessors that accept seq files. The ^generic' geoWrite Text 
Grabber will work on them as welll. 

As far as 1 can tell, neither BrainStorm nor Brainpower takes 
advantage of a ram expansion unit, and the instructions don't 
mention whether the programs can be used with a 1581. Since 
the disks are not copy protected (a definite plus), it should be 
possible to copy them to a 158 1 disk. 

Mark Jordan, the author of the programs, invites users to write 
to him directly if they have problems or questions. That's a 
plus that's not often found with software these days. 

The programs are powerful, easy to use, and very reasonably 
priced. The BrainStorm disk, which includes BrainPower, is 
only S22 (US), which includes shipping and handling. It's 
well worth the investment for anyone who^ serious about get- 
ting organized in their writing. 



Story Writer 

Also available from Country Roads is Story Writer, which 
costs $12.00 (including shipping). Story Writer is a simple 
program to use; so simple, in fact, thai it doesn't even come 
with a printed manual. There are instructions on the disk that 
you can print out, if you wish, but the program itself is pretty 
much self explanatory. The instruction file can be loaded into 
Brainpower, or any word processor or text display program 
that accepts SEQ files. 

The first thing youTl see is a screen full of coloured boxes, 
each marked with an essential element of a stor>' - setting, 
plot, protagonist, antagonist, conflict, and climax. You can 
choose any of them at any time by pressing its appropriate 
number. 

When you choose a particular element, instructions for what 
should go in the box appear In a window at the bottom of the 
screen. Below the instructions is a scrolling "split screen*' area 
into which you type. Simple text editing commands are 
available. After you press Return, the program gives you addi- 
tional instructions on the kinds of things you should include in 
each area. For example, the '^setting" box asks you for a spe- 
cific setting for your story, and after you've provided that, it 
asks you for additional details to make your selling more au- 
thentic. 

You can type in up to 100 ideas in each window. If you get 
confused, or want additional help, pressing the Help key 
brings up a series of help screens that give additional details 
on how the program works and what's expected in any particu- 
lar window. In this way, the program guides you through the 
construction of a story, asking you for specific details and then 
giving you a chance to add more ideas of your own as you 
think of them. The more you supply, of course, the better your 
story win be. The program encourages you to think about 
what's happening, and gives good pointers on what should be 
included in which section. 

You can edit the contents of any window at any time. The 
commands used to edit may lake a bit of getting used to (you 
select an item to edit by pressing cursor-right, for example) but 
they work well. Each item to be edited is moved into the "split 
screen" area at the bottom of the screen. Once you*re done, 
you can save your story to disk, or print it out. It won't appear 
in "story'* form, of course, but rather as an outline which you 
can use to write the finished story. There is even a sample sto- 
ry on the disk which you can use as a guide. 

The program is easy to use, and helps the writer think careful- 
ly about what should be included in a "good story." The best 
part of this program is that you can put your ideas down in any 
order in which they occur to you. You don't have to stick with 
any one element; you can jump back and forth as the Muse in- 
spires you. And once you're done, you have all your work in 
order, ready to write the finished story. It*s the BrainStorm 
concept applied to fiction, and it works remarkably well. Q 
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C and Assembly: Clarifying the Link 



Not all static variables are created equal,. 



by Larry Gaynier 

Larry Gaynier has more than 15 years of experience in soft- 
ware design, functional specification and documentation in a 
variety of mainframe environments. In this article, he builds 
on the description ofC object files given by David GodshaU in 
Volume 8. Issue 5 and gives explicit detail of how the "C Pow- 
er/Power C" comf}iler handles static variables. Some of this 
material was also discussed by Adrian Pepper in Volume 9, Is- 
sue /. 

1 want lo clarify some items presented in a recent Transactor 
article {The Link BetVi^een C and Assembly by David Godshall, 
Transactor. Volume 8, Issue 5). In my remarks, I assume 
'Tower C" tVom Spinnaker is identical lo "C Power" from 
Pro-Line. I tiavc the "C Power" compilers for the C64 and the 
CI 28. 

Section 5; the static section 

The article described four sections that make up a C object 
file. However, there is a fifth section for static variables. The 
two NULLS, thought to terminate an object tile, actually specify 
the length of the static section. In the example given, the 
length is /,ero. meaning there are no static variables. 

An important characteristic of static variables is that they are 
always initialized to a known value at program start-up. The 
default initial value is zero unless an explicit value is included 
in the declaration for a static variable. 

The static section of a C Power object file only contains static 
variables that rely on the default initial ligation to zero. Static 
variables that are explicitly declared with initial values, are 
handled in a different manner by the compiler. Unfortunately, 
this leads to inconsistent behavior with C Power programs as 
we shall see later. 

Each entry in the static section consists of a null-terminated 
name string followed by a word giving the size in bytes. 



Consider the following example: 

int fun 

( 

char c; 

static int iarray [5] ; 

c = 1; 

) 

Iarray is declared to be a static array of five integers. When 
compiled using C64 C Power, the following object file is pro- 
duced. 

hex dump of file fun.o 



0000 
0008 
0010 

0018 
0020 
0028 
0030 
0038 
0040 
0048 
0050 
0058 



Id 

01 
a2 
a2 
00 
03 
41 
43 
Ob 
00 
49 
00 



00 
a2 

01 
00 
01 

00 
52 

24 
00 
00 

41 



4c 

00 
aO 
aO 
00 
03 
54 
31 
43 
la 
52 



4c 
aO 
00 
00 
46 
00 
00 
30 
24 
00 
52 



4c 
00 
86 
4c 
55 
43 
00 
35 
31 
01 
41 



85 
20 
2b 

4c 
4e 
24 
00 

00 
30 
00 
59 



fb 
20 
a9 
4c 

00 
53 
00 
00 
36 



a9 

20 
01 
00 
01 
54 
00 
00 
00 



111. . . 



-I- 



cd 29 

00 05 



-111, 

. fun, , 
. .c$st 

C$105. . . 
. .C$106. 

M) 

iarray ,H 



The sections in the object file can be easily identified based on 
their location relative to the beginning of the file. 

Section Location Length Contents 



code 

relocate 

global 

external 



$0000 

$001F 
S0021 

5002A 



$1D 

1 
3 



fun 

c$3tart,cS105, 

C$106 
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TTie static variable section begins at location $004C showing a 
length of one. Next, comes the only static entry - iarray. Its 
size is declared to be ten bytes. The first two bytes in the name 
string are generated by the compiler. (I am not sure about their 
significance. They appear to be random identifiers assigned by 
the compiler). 

As you can see. no data space has actually been allocated for 
iarray. This happens at run-time similar to automatic 
variables. During the linking process, the static variable entries 
are collected into a contiguous data area to be located immedi- 
ately above the program in memory. When linking is com- 
plete, the executable program knows the starting address and 
size of the static data area. At run-time, the program performs 
a simple loop to zero each byte in the static data area, guaran- 
teeing the static variables are initialized to zero. 

Inconsistent behavior 



Section Location Length Contents 



code 
relocate 

global 
external 



$0000 
?0029 
$002B 
$0035 



C$106 
static $0057 



527 

1 
3 





funl 
c$start,cS105, 



Two things worth noting in this example are; the code section 
is larger and the static section is empty. This result occurred 
because iarray was allocated and initialized by the compiler 
beginning at location $0005. 

My advice is to keep in mind the potential side effects when 
you explicitly initialize static variables as part of their declara- 
tion. 



If a static variable is explicitly declared with an initial value, 
appropriate memory is allocated and initialized in the code 
section after the JMP CSSTART but before the regular executable 
code. It does not appear in the static section. As a result ini- 
tialization happens once when the program is loaded. If the 
static variable changes value during execution, the new value 
is remembered and becomes the initial value for the next exe- 
cution of the program, unless the program is reloaded. Consid- 
er the following example, which includes explicit initializa- 
tion. 

int funl 



{ 



char c; 
static int 
c = 1; 



iarray[51 = {1,2,3,4,5); 



} 



Iarray is declared to be a static array of five integers initial- 
ized to 1,2,3,4,5. When compiled using C64 C Power, the fol- 
lowing object file is produced: 

hex dump of file funl.o 



Parameter passing 

1 think the anicle contains an error in describing how parame- 
ters are passed during a function call. A character variable was 
claimed to be passed as one byte. Actually, a character variable 
is first converted to an integer when passed. This conversion is 
described in the book "The C Programming Language" by 
Kemighan and Ritchie. You may see other literature about the 
C language refer to the conversion as 'widening' or 'promot- 
ing/ Any actual arguments of type float are converted to dou- 
ble before the function call; any of type char or shon are con- 
verted to int. The C Power compiler only widens character 
variables because the data type sizes are limited: char is one 
byte; short, int, long, unsigned and pointer are two bytes; /?o^f 
and double are five bytes. Consider the following example: 

callfredO 

{ 

char age, *name; 

float weight; 

int height; 

fred (age, name, weight, height) ; 

} 



0000 27 00 4c 4c 4c 01 00 02 '.ill... 

0008 00 03 00 04 00 05 00 85 

0010 fb a9 01 a2 00 aO 00 20 

0018 20 20 a2 01 aO 00 86 2b ,, .-+ 

0020 a9 01 a2 00 aO 00 4c 4c 11 

0028 4c 00 00 01 00 46 55 4e 1 fun 

0030 31 00 01 Od 00 03 00 43 1 c 

0038 24 53 54 41 52 54 00 00 $start,. 

0040 00 00 00 43 24 31 30 35 ...cS105 

0048 00 00 00 15 00 43 24 31 cSl 

0050 30 36 00 00 00 24 00 00 06-,.$,, 

0058 00 

The sections in the object file can be easily identified based on 

their location relative to the beginning of the file. 



This function calls the function FRED that was described in the 
article. When compiled using C64 C Power, the following ob- 
ject file is produced. 



hex dump of file caiifred.o 



0000 
0008 
0010 
0018 
0020 
0028 
0030 
0038 
0040 



48 

05 
a9 

00 
2c 
03 
20 

03 
6c 



00 
a2 
00 
8e 
a4 
a9 
20 
8c 
a9 



4c 
05 
20 

3c 
2d 
04 
a6 
46 
05 



4c 
aO 
20 
03 
8e 
a2 
2e 
03 
a2 



4c 85 fb a9 h.lll. . . 

00 20 20 20 

20 a6 2b aO . . -+ 

8c 3d 03 a6 . .<. .=. - 

3e 03 8c 3f ,-■>- -? 

00 aO 00 20 

a4 2f 8e 45 , ./-e 

a9 Ob 20 6c . . f . , , . 

05 aO 00 4c 1 
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0048 4c 4c 00 00 01 00 43 41 11 ca 

0050 4c 4c 46 52 45 44 00 01 llfred. . 

0058 03 00 06 00 43 24 53 54 -...c$st 

0060 41 52 54 00 00 00 00 00 art 

0068 43 24 31 30 35 00 00 00 c$105..- 

0070 Ob 00 43 24 31 31 30 32 ..c51102 

0078 00 00 00 10 00 43 24 31 cSl 

0080 31 33 38 00 00 00 2d 00 138.,.-, 

0088 46 52 45 44 00 00 00 3c fred...< 

0090 00 43 24 31 30 36 00 00 ,cSI06.- 

0098 00 45 00 00 00 .e. . . 

On disas:sembly. it will be seen that the following 6502 code is 
produced: 



Code Size: 



72(D) / 48(X) 



relocation entries 

» ^^ ^_ ^_ ^_ ^^ ^^ ^^ ^_ ^_ ^^ ^^ ^_ ^_ ^-r „^ 

f 

1 external definitions 
callfred R 0003 
6 external references. 

*= $0000 

4c 4c 4c / 1800 jmp cSstart 



callfred 



85 
a9 
a2 
aO 
20 
a9 
20 
a6 
aO 
8e 
8c 
a6 
a4 
Be 
8c 
a9 
a2 
aO 
20 
a6 
a4 
8e 
8c 
a9 
20 
a9 
a2 
aO 
4c 



fb 
05 
05 

00 
20 
00 
20 
2b 
00 
3c 



00 
00 
00 
00 
20 
00 
20 
00 
00 
03 



3d 03 

2c 00 
2d 00 



3e 

3f 
04 
00 
00 
20 
2e 
2f 
45 
46 
Ob 
6c 
05 
05 
00 
4c 



03 
03 
00 
00 
00 
20 
00 
00 
03 
03 
00 
6c 
00 
00 
00 
4c 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



0003 
0005 
0007 
0009 

000b 
OOOe 
0010 
0013 
0015 
0017 
001a 
OOld 
OOlf 
0021 
0024 
0027 
0029 
002b 
002d 
0030 
0032 
0034 
0037 
003a 
003c 
003f 
0041 
0043 
0045 



sta 
Ida 
Idx 
Idy 
jsr 
Ida 
jsr 
Idx 
Idy 
stx 
sty 
Idx 
Idy 
stx 
sty 
Ida 
Idx 
Idy 
jsr 
Idx 
Idy 
stx 
sty 
Ida 
jsr 
Ida 
Idx 
Idy 
jmp 



Sfb 
#S05 

#$05 
#$00 

cSlOS 
#$00 
CS1102 
$2b 

#soo 

$033c 

$033d 

$2c 

$2d 

$033e 

$033f 

#$04 

#$00 

#$00 

C$1138 

$2e 

$2f 

$0345 

$0346 

#$0b 

fred 

#$05 

#$05 

#S0O 

C$106 



As the example shows, the accumulator is loaded with eleven 
just before the JSR to fred. These eleven bytes of parameters 
are passed to FRED in memory starting at $033c: 

$033c - Age (two bytes, zero high byte) 
$033e - Name (two bytes, pointer) 
$0340 - Weight (five bytes, FP representation) 
$0345 -- Height (two bytes) 

Once inside the function fred, the upper byte of Age will be 
loaded lo zero page storage but it will never be used. Widening 
of parameters has been generally recognized as an inefficiency 
of the C language. The new ANSI C standard, when adopted, 
will add function prototyping to the C language which will 
make parameter widening unnecessary, I am curious to see if 
the "C Power" compilers will be updated to match the ANSI C 
standard. 

Wrapup 

Overall, the C Power 128 compiler exhibits identical behavior 
as the C64 version except that parameters are passed in 
memory starting at $0400 in bank 1 and different zero page lo- 
cations are used during function execution. 

I hope you find this information useful to better understand the 
C Power compilers and to avoid some pitfalls. D 



BIG BLUE READER 128/64 
COMMODORE <=> IBM PC 

File Transfer Utility 

Big Blue Reader IZK/64 is ideal for those who use IBM PC 
compatible MS-DOS computers ai work and have the 
Commodore 1 28 or 64 at home- 
Big Blue Reader 128/64 i^ not an IBM PC emulator, but rather 
it is a quick and easy to use file transfer program designed to 
transfer word processing, text and ASCII files between two 
entirely different disk formats; Commodore and IBM MS- 
DOS. Borh CI2H and C64 applications are on the same disk 
and requires either the i57I and/or 15HI disk drive. (Transfer 
I60K-360K 5.25 inch & 720K 3.5 inch MS-DOS disk files,) 
Big Blue Reader 128 suppons: CI28 CP/M files. I7xx RAM 
exp. 40 and 80 column modes. 

Big Blue Reader 64 Version 2 is 1571 ajul 1581 compatible and 
is available separately for only $29,95! 

BIG BLUE READER 128/64 only $44.95 

Ord«r by dwck. money order, or C^O-D, 

No crediE card ordef^ please Foreign orders add S4 

B8R l2S/6d available Eg currenT BBR users tOT SiS pLjs yojr origirral disit 

Free shipping and handlmfl. CALL en WRITE tar more intormaiion. 



To order Call or Wrile: 

SOGWAP Software 

IISBellmontRd 
Decatur JN 46733 
Ph (219) 724-3900 
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Care and Feeding of the C256 



Fattening your C64 



by Paul Bosacki 

ll really wasn't that long ago thai 64K was a lol of memory. 
But in five short years, we*ve gone from measuring 'enough' 
memory in kilobytes to megabytes. An Amiga comes with 
512K. but apparently needs at least a meg to really show. We 
owners of the (dare I say it) venerable Commodore 64 have 
64K and really little opportunity to expand beyond that other 
than the 1764 REU, But what if I told you that there is a way to 
expand the C64 to 256K, that you can do it yourself, and (best 
yet) I can promise you compatibility with GEOS? And maybe, 
just maybe, it can all happen for under $100.00. Interested? 
Read on. 

This promised memory expansion comes in two parts. The 
first is a circuit whose construction is, I believe, not beyond 
the abilities of the novice. The second is the direct replacement 
of the memory chips with 41256^s (a 256K bit DRAM). There is 
some interlace wiring between the 64 and the mod board. 

As you are aware, the 64K memory capacity of the C64 is dic- 
tated by the width of the address bus: sixteen bits, I have 
found an easy way to add two pseudo-address lines. These two 
new lines allow access to four banks of 64K each. When each 
bank is mapped in, the stardard configuration of the C64 is un- 
changed. If all ROMs were mapped in, then they still are. Little 
has changed, except that there is now 256K rather than 64K 
resident in the machine. By the way. Bank is always brought 
into context on power-up. As well, a certain amount of Bank 
is always available. This is necessay for two very important 
reasons. Although much of memory can be changed at will 
without consequence, there are certain locations that the Oper- 
ating System and the mpu need to have available at all times; 
namely, system vectors and the stack. Consequently, these lo- 
cations are never mapped out. 

The modification 

Three switches and two bits from the MPU I/O port are used to 
configure the additional memory. Briefly, P3 and P4 (the cas- 
sette write line and cassette sense line) provide the two 
pseudo-address lines needed to access the additional memory. 



By reconfiguring P4 to output and writing one of four two-bit 
codes to location $01. one of four banks of 64K can be 
mapped in. This technique must certainly ring a bell, for it is 
by the same method that the ROMs are mapped either in or out. 

Of the three switches, one allows the machine to be signifi- 
cantly reconfigured. It allows AlU to be considered when de- 
coding common ram. If considered, common ram (CRAM) is 
from $0-$03FF. Otherwise, cram exists to $07FF. This option 
sets the default screen matrix within CRAM. The resuk is that, 
on a bank switch, the screen remains unchanged and 'com- 
mon* to each bank. Another switch allows the aec line from 
the VIC Chip to generate a CRAM call. If enabled^ a low on aec 
causes Bank to be mapped in (CRAM is always Bank 0). If 
disabled, aec has no effect. This option is particularly useful 
with CRAM set to $03FF and aec disabled. Each bank then has 
its own screen matrix which can be used in the usual sense 
(i.e. your typing appears on the screen). If AEC is enabled, the 
screen is 'protected." It's visible, but the contents cannot be di- 
rectly modified from the keyboard. Through these options any 
number of screens are made available without stealing Bank 

RAM. 

The third and final switch disables the bank select circuitry. 
This is done quite simply by driving the '•STROBE pin of the 
'LS157 high. This forces a low on output Vi bringing in Bank 
0. This capability is needed with software that is lazy when 
writing to the MPU I/O port. A bank switch might inadvertently 
occur Further, software which is protected through the use of 
'keys' that fit into the cassette port will not load properly with- 
out disabling the expansion memory. And of course, because 
we are using the cassette sense and write lines as our two 
pseudo- address lines, the datassette is incompatibile with this 
expansion project. 

Circuit theory 

Briefly, an *LS245 bus transceiver buffers Aio-Ais to a pair of 
'LS32 OR gates acting as address decoders, Howeven AiO is 
first AND*ed with a qualifying signal generated by swl. If the 
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qualifying signal is high (swl is open), AiO is reflecled al ihe 
ouipui of the gale and passed back to the OR gates. If low, AlO 
is inhibited, and a low is generated regardless of the state of 
AlO, 

The OR gates decode the address lines in this fashion: if any 
line should go high, then a high is generated at the final out- 
put. Otherwise, a low is generated indicating an attempt to ac- 
cess memory below $07FF (or $03FF if AIO is considered in 
the decoding). This signal is labled *CRAM (Common ram) on 
the schematic. *Cram is then AND'ed with *V]D (AEC rela- 
beled), *VlD goes low only when the vie chip updates the dis- 
play. If *viD is enabled, then both signals must be high in or- 
der for the output of the "LSOR and gate to go high. When *vid 
is disabled through opening sw2, *vid is forced high by a 
4.7K pull-up resistor In such a situation, ^CRAM is reflected at 
the output of the AND gate. This output is the BEN (bank 
enable) signal. 

The BEN signal is really the heart of this expansion. P3 and *P4 
(P4 is inverted earlier) are each presented to one input of an 
AND gate; BEN serves as a quallfer at the other input. When 
BEN is high, P3 and *P4 are present on the output of their re- 
spective gates allowing a selected two-bit code to be sent lo 
pin 1 of the 41256 dram's. If ben is low. P3 and *P4 are inhib- 
ited and a low is present at the oulpuls forcing a default to 
Bank 0. These two outputs are LA16 and lai7. 

The two pseudo-address lines are then passed to a XS157 
multiplexer The *SELA line of the multiplexer is controlled by 
the same signal that drives the 'LS257 multiplexors on the sys- 
tem board. That is, the "CAS signal generated by the VIC chip. 
The two pseudo-addresses are multiplexed onto pin 1 of the 
4I256's at the same time as the rest of the address bus. 

That's pretty much it. Dependent upon the BEN signal, which 
is enabled only when both *CRAM and aec are high, four 
banks of 64K are available. It is wonh noting that *vrD goes 
low only on a video access, which itself disables the MPU, and 
that *CRAM only goes low when the mpu tries to access 
memor>' beiow $()S()0 or $0400 (depending upon whether aio 
is considered). 

Installation 

The installation of this modification is absolutely a two step 
process. First, disconnect everything; printers, disk drives, joy- 
sticks and the power supply. Next, void your warranty by dis- 
assembling your C64. Remove the top RF shield, gently dis- 
connect Ihe keyboard, then remove the screws that hold the 
system board to the bottom half of the case. Now, remove the 
bottom RF shield. In some cases, it is held in place by the saine 
screws and simply drops off. However, mine was soldered in 
place. Desoldering braid did the job for me. 

Now life gets interesting. Locate the eight 4164 DRAM*s on 
the system board. They're usually in the lower left corner. On 
my board ihey were labeled U9-U12 and U21-U24. Turn your 



board over and carefully note their position. Now comes the 
fun part: remove them. I used a combination of solder braid 
and a vacuum desolder. Make certain that each hole is as free 
of solder as possible. Each chip should then pry free fairiy eas- 
ily. If you want to save the chips remember to keep your time 
at each pin to a minimum. The heat generated by a soldering 
iron will quickly ruin a memory chip. 

Once you've removed all eight, install 16-pin sockets and 
carefully solder them to the system board. Be certain not to 
leave solder bridges between pins. That's a sure headache later 
on. Once installed, use a fine gauge wire (I used wire wrap) to 
link together pin 1 of each socket. For now, connect pin 1 of 
the last socket to a convenient ground. Install the 41256's. 
They are extremely static sensitive so ground yourself first to 
discharge any static that may have built up. Now. reassemble 
your computer (at least set it back in its case). Reconnect the 
power supply and your monitor. Hold your breath and turn 
your machine on. 

If you get the usual power on message, everything's fine for 
now. If you didn't, try reseating the 41256's- Are any upside 
down? Did a pin slip outside a socket? Carefully reinspect 
your soldering and try again. If your display flips (i.e., random 
display that changes in a random fashion), then one chip or 
more isn't seated properly. Check everything. Most likely, 
however, you will get the usual power up message. 

With Ihe dram's in place and working properly, the next step 
is construction of the mod board. I used point to point solder- 
ing, although wire wrap works just tine. If you can etch your 
own board that's great. For the board itself. I used one trom 
Radio Shack with solder-ringed holes (cat. no. 276-158). Re- 
membering to leave room for ground plane and +5V plane, in- 
stall the sockets according to the wiring diagram and solder a 
couple of pins on each socket to hold them in place. Then run 
the ground and +5V planes. For the planes, try 'stitching' 
stripped 22 gauge through every fifth or sixth hole and apply a 
touch of solder. Make the appropriate +5V and ground connec- 
tions, and install the capacitors at this time. Now, follow the 
wiring diagram and carefully complete the job. The wiring di- 
agram shows the board from the component side. Remember 
that pin 1 of the 'LS245 is at the top left corner on the compo- 
nent side, and top tight comer on the solder side. 

Just a hint: after I had installed the sockets and power planes, 1 
trimmed the board leaving a 1/4" border all around. 

With the board finished, its time to hook it up. But first find a 
place for it. 1 have a 64C and placed mine between the VTC 
chip and the RF modulator. Don't fix it in place yet. Using rib- 
bon cable five-conductor wide, follow the diagram of the Ex- 
pansion Port on the following page (seen from the solder side) 
and solder one lead to each address line. I found that ribbon 
cable from Radio Shack was of a fine enough gauge that I 
could ease the Expansion Port lead to one side and insert the 
wire. Again watch out for solder bridges. The address bus will 
crash, and your computer will lock up with no display. 
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Determining just how long the cable will have to be is up to 
you, but keep i( as short as possible- Soklcr the other end of 
the cable to your mod board, again each lead to one input of 
the XS245 socket. 

Now we have to do a little hunting. Locate pin 1 of either 
'LS257 (ui3 or U25) on the component side of the sysietn 
board (look to the right of the 4l256's). This is the ■♦■CAS sig- 
nal. Follow the trace away 
from the chip until you find a 
silver solder dot. This is a 
pass-through jumper to the 
other side of the board. Heat 
the solder and insert a single 
strand of ribbon cable about 
10" long. 



Now locate pin 16 of the vie 
chip (Ui9). This is ihe AEC 
signal Either locate a pass- 
through jumper as before, or 
from the solder side, heat the 
pin, ease it aside and insert 
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your computer and install the chips ensuring correct orienta- 
tion and placement. 

(Note: all of the above tests can be performed with a volt- 
meter High/low piilses will show about 2.4v, low below 0.8V, 
and high above 3.5V) 

Power up and the usual message should appear- If it doesn't, 

recheck the above. Also look 
for pulses on the outputs of 
the OR and and gates. Check 
the wiring of the mod board 
itself; this is most likely 
where the problem lies. If the 
usual message did appear, 
then turn off your computer 
and disconnect pin I of the 
41256's from the ground and 
connect it to pin 4 of the 
'LS157. Power up and you 
should be in business. Four 
banks of 64K each are just 
wailing for you. Reassemble 
your computer and promise 



QDOOOOOOOD 



L 



another single strand of rib- 
bon cable. Now make the appropriate connects to the mod yourself that you'll never take it apart again, 
board- Ate goes to SWl. *Cas goes lo pin 1 of the XSI57 
multiplexer socket. Getting acquainted 



Look at the diagram of the Datassette Port. P3 and P4 are 
available on leads E3 and F6 respectively. P4 connects to pin 1 
of the 'LS04 socket; P3 connects to pin 13 of the XS08 socket- 
I also took my power supply from the port. Use a heavier 
gauge wire to make the connections. Now connect the switch- 
es. I found a DIP array works well. Use enough ribbon cable so 
thai you'll be able to pass the dip switch out the cassette port- 
This way it'll be easier to get al it when you want to change 
the configuration of the mem board- Use shrink wrap to insu- 
late the leads of the switch so that casual use doesn't result in 
two leads shorting to each other. 

Don't yet install the chips. Reassemble as much of your com- 
puter as necessary and power up. Gel the usual message? 
Great! 

If you didn't, recheck your wiring, especially the connections 
to the expansion port and "LS245 socket. Since none of the 
chips have yet been insialled, your problem must lie some- 
where in the interface wiring. So check it all over and find the 
fault. 

If you have a logic probe- check the A inputs of the XS245 
socket for high/low pulses. As well, pin 1 should show high 
and pin 19, low. If missing, check your wiring and the solder 
joints. Now, test P4 at pin I of the *LS04 socket Is it high? Do 
the same for vs at pin 1 3 of the 'LS08 socket. It should be low- 
Check for pulse conditions where AEC and *Cas come to the 
mod board- Check each ground and -i-5V connection for the 
corresponding low or high- If everything checks out, turn off 



Try this from the direct mode with AEC disabled and AlO con- 
sidered: poke 1.63. Your screen filled up with garbage, right? 
That's because the vie chip now 'sees' Bank i ram. Clear the 
screen and enter list. Again you probably got garbage or a syn- 
tax error. So. enter sys58303 and then new. List again; nothing 
right? Now enter a short program: 

10 for j=l to 1000: next 

Now enter poke 1,55. Something happened. The power-up 
screen (or a part of it) is back, and the cursor ib about half way 
down the screen. Now list your program. Not there? Go back 
to Bank 1 and list. It's there, isn^t it. Neat stuff, eh? 

Now reconfigure bit 4 of the mpij data direction register lo 
output with pcikeO, peek(O) or 16. Now. try going to each of 
the other banks. For the default power-on configuration, the 
values are: 



bankO 


: 55 


bank 1 


; 63 


bank 2 


; 39 


bank 3 


: 47 



Have fun with it. Your machine now contains 256K of 
memory! If you want, enter and run the Memory Test program 
supplied with this article. It will simply and quickly test the 
four banks of memory- Also get Eo know the table of configu- 
rations so you won't be too shocked when AEC is enabled* Am 
not considered, and you switch banks. 
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GEOS V 1.3 and 256K 

At the beginning of this article, 1 promised compaliblily with 
GEOS. Using Confiiiure256, you can configure a 1541 RAM 
disk lo run under CEOS. The RAM disk uses the bank switched 
RAM we've just installed. If you've ever tired of what seemed 
hke continuous disk access when running an application, Hfe 
just got better. Loading an application from the ram disk takes 
a second or two; overlays take no time at alK If a copy of the 
DESKTOP is also on the RAM disk, the DESKTOP comes back up 
almosi instantly. 

When you first run Configurc'256 for the DESKTOP, a small 
block transfer routine is moved down to S02A7, and the RAM 
drive code at $9C80 is modified to access the bank switched 
RAM, Al;^o, the number of drives on the system is stored at 
SC0I3. This serves to indicate to the program whether ifs 
been run before and. if it has, to bypasses the above routines. 

Next a check is performed to test whether the RAM disk has 
been formatted. If so, the program exits. If not> it performs a 
format, then exits. Device 9 is the default RAM drive. On a 
one-drive system, a new disk icon appears below the other 
with the name bkam I541. On two-drive systems, the icon ap- 
pears in the same place, but because the DESKTOP can handle 
only two drives, your second 1541 cannot be accessed. 

On subsequent calls to Configure256, a menu is displayed of- 
fering the following options: 

a) format: just what it implies 

b) Rdrive A: move ram drive to device 8 (only enabled when 
there are iwo disk drives on the system) 

c) Rdrive B: as above 

d) flip: exchange ram drive and 1541 at that device number. 
On a system with two drives, this allows you to have three 
drives availalble (though only two at a time). 

e) 1541: remove ram drive from system. 

f) quit 

The menu appears immediately to the right of the DESKTOP 
menu. 

There are some points to note while using this patch- The first 
is that AlO must be set to 'considered* and for esthetic reasons. 
AEC must be enabled (video display drawn from Bank 0). The 
ram disk table uses ram from $0400 to SFFFF in Banks 1-3, 
If AiO is not considered, the Bank ram at $0400 will be 
overwritten, leading to a System Error Near... message. 

Next, this program, and in fact, this expansion module is in- 
compatible with the Calculator da. The DA writes to $01 in a 
very sloppy manner causing an inadvertent bank switch. If you 
use the Calculator, switch off the mod board. It can be done on 
the fly, so you can switch it back on afterward, 

GEOS must be run from Bank 0. GEOS writes to $01, and 
knows nothing about our Ram Expander If you do manage to 



boot, and run Configure256, you will get an error message. 
Shut down and reboot from Bank 0, Otherwise, you're only 
asking for trouble. 

Lastly, there is absolutely no such thing as free memory under 
GEOS. This program has been tested with applications like ge- 
oWrite 2.0, geoCak\ geoFuhlixher, the geoProgrammer pack- 
age, the Desk Pack and found to be compatible. However, I 
cannot guarrantee compatibility with applications not listed. 

There are also some limitations when running this program 
under GEOS. Configure256 does not support the shadow drive, 
nor the Stash, Fetch, Swap and Verify routines. If you run the 
Configure256 program from your boot disk, it will indicate a 
1541 RAM Drive, but ram expansion will be "none." Don't at- 
tempt to configure a shadow drive. If you do, rerun Config- 
ure256 and click on "Rdrive B." 

How to get there from here 

A question T kept asking myself throughout this project: where 
do 1 go from here? It been 1 1 months since 1 modified my C64 
to run with 256K, and Tm still coming up with new ideas and 
uses for my expansion memory. Here are a few of the more in- 
teresting ones. About 1.8K of the Kemal is devoted to cassette 
operations; how about replacing that code with slash and fetch 
routines? That way precious CRAM is not cluttered with trans- 
fer routines. Or how about a modified CHRGET routine lo fetch 
BAS[C text from another bank? 

You've got nearly 196K of expansion RAM. How many graph- 
ic screens is that? Easy animation? 

Or something more down to earth: a few days ago, I was 
working on a problem that required a sector editor, an ML 
monitor and a couple of other support utilities. If I hadn't had 
the expansion RAM, I would have been loading one, using it, 
loading another, using it and so ad infinitum. As it was, I load- 
ed each into its own bank and switched banks when I needed 
to. 

Here's something on the hardware front. On the CI 28, you can 
declare 32K of CRAM fhrough the MMU. How about adding an- 
other AND gate and switch (along the lines of the AlO inhibit 
circuitry), and declaring more CRAM. Or add a9 lo the address 
decoding. With A9 considered, cram would only go to $0 1 FF. 
Each bank could have its own BASIC and OS vectors. Four 
computers in one! 

I leave it up to your capable hands and imagination. 

Table uf configurations 

A) The four banks: 



BaiikO 


: 55 


Bank 1 


: 63 


Biuik2 


; 39 


Bank 3 


: 47 
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Bit 4 of the mpu ddr must be set to output (=1). By default, bit Bank is only brought into coiitexE when: 

4 is set to input and pulled high by a resistor. For this reason, 1) address falls below least decoded line (ldl), or 

bit 4 is inverted at the mod board. 2) arc goes low indicating Vic DMA. 



B) Three switches offer *hardset' configurations that can be 

switched on the fly: 

i) AlO consider: considered when open 

ii) AEC enabled: enabled when open 

iii) Disable Mod: disabled when open. 

a) Aio considered/AEC enabled: cram $02-S03FF. Video dis- 
play data drawn from Bank 0, however OS 'sees' current 
bank. Therefore, screen seems to freeze until Bank reset. 
Type blindly: pokel,55. 

b) AIO considered/AEC disabled: cram $02-$03FF. Video 
display is drawn from the current bank. OS also sees this 
bank, and updates accordingly. 

c) Alo not considered/AEC enabled: CRAM $02-$07FF. De- 
fault screen matrix now falls within cram. All banks share 
a common screen. 

d) A]0 not considered/AEC disabled: cram $02-$07FF. Re- 
verse of configuration (a). Video display data drawn from 
current bank, however os 'sees' Bank 0. Type blindly: 
poke 1,5 5. 

Notes: 

When AIO is considered and AEC is enabled the cursor is Most' 
when Bank is switched out. If AEC is then disabled, the cur- 
sor is found in the current bank. Why? 



If LDL is AIO and screen memory is at the default location, the 
OS acts on the current bank whose screen matrix lies above 
CRAM. In this sense, the cursor isn't lost. The OS is happily up- 
dating the cursor and the video matrix. However, since it 
knows nothing about the expansion ram, its updating the cur- 
rent bank. The reverse is true when Aio is not considered and 
AEC is disabled. 

Disclaimer: While we have every confidence that Mr. Bo- 
sacki's project functions as it should, we would like to make it 
clear that it was not undertaken here at Transactor and we 
were therefore unable to test the software. Consequently, we 
would like to request that you refer any problems or sugges- 
tions to Mr, Bosacki directly, rather than sending them to 
Transactor. You may be interested to know that Mr. Bosacki is 
now using a one megabyte C64. He has 512K installed inside 
that machine and a 512K REU. We would be remiss if we 
failed to inform you thai a project such as the one discussed 
will certainly void your warranty. That being said, please ad- 
dress your letters to: 

Paul Bosacki 
37-1443 Huron St. 
London, ON, Canada 
N5V 2E6 




HI 



11^ 

1R "^ 

1V 


+5 


Zf\ 


IV 


£E 


3fl 


£V 


3E 


QRD 


5V 





t^emEx DGuqhte/ Boa^d 



Pin t of 



Transactor 



71 



December 1988: Volume 9, Issue 2 



ttttttttttiftt*«tir»tit|tit|tititMitt*ittikM*frlr» 



Config256,hdr 



t 

-* t 

r 

;* This file contains the header block * 

;* definition for Config256, * 

-ttttt»»t*»tttttttttttttttttii*tttiitiiiii**t 

,if Pass! 
, include Config256 . syti 

,endif 

;flere is the header, The CorLfig25S.lnJc file will 

iinstruct the linker to attach it to application. 



header 

.wrd 
.byte 3 

-byte 21 



;start of header section 

;fir5t 2 bytes are always zero 

;vidth in bytes 

;and height in scacilines o£: 



.byte 
.l^e 
,l^e 
.word 
.word 

.word 
.byte 



SaoioSR ;C= file type, with bit 7 set, 
RPFLICMIOH ;GEOS file type 
SEQOEHTIAl ;GEOS file atnicture type 



$400 
"RamDrirer 



SiOO ;start address (where to load) 

53ff ;ijsijally end address, but only 

;needed for desk accessories. 

;init address (where to JKF) 

VI 1\ 0,0, 0,500 

;peraanent filename; 12 chars, 

;then 4 character ver. number, 

;then ] zeroes. 

;then 40/80 coluain flag. 

.byte "Paul J. Bosacki ",0 

ptwenty character author nan^ 

;end of header section which 
;iB checked for accuracy 

.block 160-117 :skip 43 bytes... 

.byte "Configures banked RAM to act" 

.byte "as RAHdrive as under G£OS",0 

.endh 

■ *Jr*******t»*l**l******»*#tt*ttttttiKr**JrJr]» 



Config256.1nk 






;* Here are the link file directives for * 
;* Config256, * 



.output configure25& 
.header Config256.hd.rel 
seq 

.psect S0400 
Config256.iiin.rel 



[application name 
; header definitions 
; sequential file type 
; loads in at $400 
; link this file 



■ **Jr*********tt*****i>*t»itililil*****t*i***ir»#*#* 



ft 



Config256.Syii 



4 

* 



;• These are the GEOS equates for Con£ig256 * 

■tttt**»t*»»#»iHili**»**<*i""**Jr***t**»**»«* 



;*« Geos OS TAB Routines Used *** 



CmpFString 


= 


Sc26B 


DoDlgBoit 


33 


Sc256 


Do Icons 


■■ 


SclSa 


DoHenu 


B 


SclSl 


DoFreviousHenu 


33 


$el90 


ZnterDeskTop 


= 


$c22c 


GetBlock 


= 


$cle4 


HoveData 


B 


Scl7e 



HewDisk 


B 


$clel 


PutBlocfc 


B 


$cle7 


ReDoHenu 


W 


$cl93 


SetDevice 


V 


5c2h0 



Dbank: 



.block 1 



;**• Kisc, Equates »" 



CPDDATA 


= 


$0001 


cpo"ddr 


33 


$0000 


curDevice 


= 


$00ba 


curDrive 


= 


$S4B9 


diskBlkBuf 


= 


$3000 


dispBuffeiCn 


33 


$002a 


numD rives 


= 


$B4Sd 



;*** Geos Constants *** 



AFF LIGATION 


^* 


6 


BOLOT 


^ 


24 


DEF DB POS 


= 


$80 


DBSYSOPVEC 


vfr 


14 


DBTXTSTR 


- 


11 


DIRmCK 


= 


Ifl 


KORIZONTAL 


- 





HEND ACTION 


= 





HULL 


■ 





SEQUENTIAL 


= 





ST NR FOB£ 


- 


$B0 


TXT liix 


- 


16 


TXT LN 2 Y 


- 


32 


TXT m 3 J 


z 


4B 


usr" 


= 


4 


VERTICAL 


= 


SSQ 



;*** Geos Pseudo-Register Definitions *** 



rO 

rOB 

rOL 

rl 

rlB 

rlL 

r2 

r2H 

xHL 

i3 

r3fl 

r3L 

r4 

r4E 

r4L 



= $0002 

- $0003 
s $0002 

- $0004 
= $0005 
■■ S0004 
= $0006 
= S0007 
s $0006 
=> $0008 
= S0009 
= $0008 

- SOOOA 
= SOOOB 
= SOOOA 



ittllllit>ftli>ili^ttitititit*it«*t*tt]ttt*t***ft»tittt4 



>* 



EamDisk Driver (GEOS) 



;* This program creates a RAHdisk 

;* driver for GEOS. Runs as an application. 

;' Leaves a transfer routine and patch. 

:ltlttt«iltttttlrfJrftf]f]f]titikititititilllilMtfrfrttJr»» 

J 
I 

,if Fassl 

include Conf ig256 . sym 

.include geosMac 
.endif 



.isect $02 

source : 
destination: 
tlength; 
Sbank: 



,'ipage begins 
;at rO 
.block 2 
.block 2 
.block 2 
.block 1 



CPU DATA: This is the Bank Control Beg. 
Four banks of 64K are available. 
The register is laid out like this: 



bit 0; RCM select 

bit 1 : RCH select 

bit 2 : RCH select 

bit 3: bank select (LA16) 

bit \\ bank select (LA17j 

bit 5: cassette motor 

bit 6; n/a 

bit 7; n/a 



see scheiuatic 



C_^nuBDrives = SoOl3 
BankKove = $02a7 
.psect 

f 

Init: LoadB dispBufferOn, |ST_HRJ0R£ 

Ida C_nuTiiDrives ;progran called 

beqll$ 

jnp FronDesk 
11$: Ida CPD_DATA 

and I^DOOIOOOO 

CDtp IIOOOIOOOO 

beq 10$ 



; first tiw? 



;do initalization 
;are we in bankO? 
;if not, put up 
;error message and 

LoadH rOrKNotBO_Tab ;exit to DeskTop. 

jsr DoDlgBox 

jnqi Do quit 
105; Ida curDevice 

sta Copy_curDevice 

Ida nunDrives 

sta C_nuiiiDrlves 

jsr In3tall_Drive ; install code patch 

LoadW r4, IdiskBlkBuf ;and move transfer 

Loadfi rlLr )d1R_TRACK ;routine to EankHove 

LoadB rlH, tO 

jsr GetBlock 

LoadH rOr tdiskBlkBuf+lU ;offset to 

LoadH rl, #headerritle+144 .diskname 

Idy *$02 

Idx tS04 

Ida l$10 

jsr Cz^String rhas randisk already been 

beq 12$ ; formated? If sc bypass 

jar Fonaat_Rdri ;fomiat routine. 
12$; ji^ Do_quit 

4 
I 

FrofflDesk: 

Ida curDevice ;save current device 

sta Copy_curDevice 

LoadH rOj tHenuJTab ;put up selection menu 

Ida |Q ,-pointer is placed 

jsr D(^nu ;on first item 

rts 



BX_TOP 

BX HEIGHT 
BX*I£FT 

BX HIDTH 



=SOc 

=0 ;last tvo used as word values 

=$89 .when declaring Dienu dimensions 



HtnuTab: .byte B):_TaF 

,byte BX_TOP+BX HEIGHT 
.word BX_LEFT+BX_HIDrH 
.word BX_LEFTfBX WIDTE+SS 

,byte llflORIZONTAL 
.word DiskText 
.byte VERTICAL 
.word Disk&uld4enu 



Transactor 



72 



December 1986: Volume 9, Issue 2 



DiskSuhHeriu: 

.byte BX_T0P+13 
.byte BX_T0PI(14*7)+1 
.**ord BX_LEFT+BX_WIDTH 

.«ordBX_L£rr+BX_HIDTH+75 
.byte 6|VERTiaL 
.tford Txt format 
.byte MENU ACTIOT 
.word Do format 
,**ord Txt dra 
.byte HENU_ACTION 
.wrd Do_dra 
.vord Txt drb 
.byte KENU ACTION 
.word Do drb 
,word Txt flip 
.byte HENU_ACTIOH 
.vocd Do flip 
,>ford Txt noram 
■ byte MENU_^ACTIOW 
.word Do noram 
.word Txt quit 
.byte MEND_ACTIM 
.word Do quit 



Idy i& 
sty E^evice 
Set_Device: 
Ida t2 

sta riuniBrives ;update t of drives 

Ida t$Sl 
£ta $e43e,y 

cpy IS 

bne 5$ 

iny 
10$; and H^OOODOOOL ;]iiake drive type 1541 

sta $8486, y 

tya 

jsr SetDevice ;pass device t in ace. 

; 3et_Device make that device 

jsr NevDislL ;and updates drive varibles 

rts ;initialiies new disli 

5$: dey 

bra 10$ 



only enough code to transfer 256 bytes. 



s_BanltMove ; 

PushB CPDDATA 

Pushfl CPD_DDR 

ora 1*00010000 

sta CPn_DDR 

Idy 10 

Idx Dbank 
20$: Ida Sban): 

sta CPU_DATA 

Ida (source), y 

atx CPU Dm 

9ta {destination), y 

iny 

bne 209 



set CASS Sense to 
output , Restored at 
exit froD routine 
from stack. 



PopB CPU DDR 
PopB CPD^DATA 
rts 



Do flip: 



DiskText : 

Txt format; 

Txt^dra; 

Txt_drb: 

Txtjiip; 

Txt_noram: 

Txt quit; 



.byte 
.byte 
.t^te 

■ byte 
.byte 
byte 



■RDrive\ NULL 
■format", NOLL 
'RamDri A", HULL 
'RamDii B", HDLL 
^flip", NOLL 
'1541", NULL 



.byte >it", mL 



HotBOJab: byte DEF_DB_P0S|1 
■tyte DBTXTSTR 
.Iqrte TXT_LN_X 
,l7te m_LN 2 Y 
.t*ordH_bkO 1 " 
.byte DBTXTSTR 
,byte TXT LN X 

.vord N bkO 2 
.byte DBSYSOPVEC. 

W_bkO_l ; 

"byte EOLDON, "This module can only be", 
H>kO 2; 

"byte BOLDOH, "installed from HANK 0", 

RDevice: .byte j[9 ;default rajndisk=device 9 
Copy_curi)e7icB; .bloclt 1 

r 

Ik)_format: 

jsr ReDoMenu 

Ida #2 

sta nuoDrives 

jsr Fornat_Rdri 

rU 



lOS: 



Idy 
Ida 
pba 
iny 
Ida 
dey 
3ta 
iny 
pla 
sta 
bu 
tya 
jsr 
jsr 
jn^ 

dey 
tya 
jsr 
jsr 



Do noran; jsr 
Ida 

Idy 
sta 
Ida 

bne 
Ida 
Idy 
sta 
Ida 
sta 



lOS; 



jfflp 
Ida 
Idy 
sta 



DoPreviousHenu ;roll up coenu 
$e486,y 



$8486, y 
$8486,y 



$84&6j 
lOS 

SetDevice 
NeuDisk 

Do quit 



SetDevice 
NeuDisk 

Do_quit 

ReDoHenu ;sia^ly put, restores 
11 ;1541's to system. 

le ;Checks C_numDrivea 

$S4G£,y ;for the nmobei of 

C_nuinDrives :154rs, 

11 
10$ 

10 
19 

$e4a6,y 

n 

nmoDrives 

Dojfuit 

#1 

#9 

$S48&,y 

Do quit 



e_BankHove: 

r 

Banklen = e_BanltHove-s_BankMove 

; "* Patch GEOS Routines and 
; transfer move block routine*** 

RamCode = $9c80 

lnstall_Drive: 

LoadH rO,ts BankCode ;install RAH driver 
LoadH rlJRaiDCode ;code. This code then 

LoadH i2rtCodeLen ; overwrites the , 
jsr HoveData ;existin9 GEOS routine 

LoadV rO, ts_BankMove :move transfer 
LoadH rl, iBankMove [routine to 
LoadW r2, iBanlLLen ;BankKove, 

jsr HoveData 
rta 



;dummy routine for the 
;verify RAH call 



Do dra: 



Do quit: 



jsr ReDoHenu 

Ida C numDrives ;if there is only one 1541 



IS: 



o^ tl 

bne 1$ 
rts 

Idy 13 

sty RDevice 

bne Set_Devic8 
Do drb; 

jsr ReDoHenu 



;on the system then this 
pOption does not allow a 
;ramdrive as device 18 



IS: 



Ida numOrives 

bne IS 
Ida 18 

sta Copy_cutDevice 
Ida Copy_curDevice .restore curDrive 
jsr SetDevice :on entry to 

ji^ EnterDeskTop .application. 



; Geos disk routines read a block at a time. 
; Because of this, our transfer routine requires 
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sBankCode; 
IdxKO 
Ida 10 
rts 
nop 
nop 
nop 



following code replaces the GEOS RAHex driver. 



Idx II ; fetch 

bne 105 

Idx ID ; stash 

105: PushW rO 
PushW rl 
PushH r3 
Idy destination 



GetBlock and PutBlock routines pass 

the track value in rlL, and sector in rlfl. 

dey 

Ida RDTab,y :get MH track value 

clc 

adc destination+l ;add in sector as offset 

sta destination+1 

Ida ItOOlUOOO ;value lor Bank 1 

cpy til ;if track<ll then Bankl 

bcc 40$ 

December 1986: Volume 9, Issue 2 



,'value for BankS 
;if traclt<23 then Bank2 
r'«lse Bank] 
;valLe for Eank3 



m-- 



60$: 



Ida flDDlOOOOO 
cpy 123 
bcc 4Q$ 
Ida t^OQlOlODQ 
Eta DbacilL 
Idy MOOllOOOO 
sty Sbank 
Idy to 

sty destination 
Idy r4H 
sty souEcefl 
Idy r4L 
sty source 

cpx tl ;if Fetch then flip source and 
.destination as well as source 
bne 6DS :and destination banks. 
FushB Dbank 

MoveW destination, source 
HoveW r4, destination 
HoveB Sbank, Dbank 
FopB Sbank 
jsE BankHove ;junp to block transfer 



PopW r3 
PopW rl 
PopW rO 
Idx to 

Ida fO 
rtft 



;£0UtinG, restore 
;pseiido -registers 

;disk errors passed in x. 
;l)=na error. 



RamDiskTab is a table of RAM page values used 
by the RAHex driver in order to determine the 
location of each track and sector. It works like 
this: each value represents Track XX, Sector 0, 
where XX is a validtrack. The sector nuinber is 
then used as an offset. For example, Track 1, 
Sector e =4+e=12, or^ Bankl, RAH page 12. 



RajaiDiskTab; 

,byteS04,$la,S30,S46,Hc,S72,S8fl,&9e 
.byte Sbf $ca,SeO,S04,$la,S30,SJ6.S5c 
,byte S72.&Se,S9c,SbO,&c4,Sd8,Sec,504 
, byte Sl8,&2b,S3e, 551. 564,S77,S8a.S9c 
.byte Sae,ScO,Sd2,Se4 

^ 
I 

e_BankCode: 

^ 

r 

RDTab = BamCode+(RaiiiDiskTab-s_BankCodej 
CodeLen = e BankCode-s BankCode; 



FonBat_Rdri: 

Idy RDevice 
Ida mi 



sta $S486 J 
sty curDrive 
LoadH r4, t^eader 
LoadB rlLjDIR TRACK 
LoadB rlH, 10 
jsr Put Block 

l^ to 

tys 
10$: sta diskBlkBuf,y 
day 

bne 10$ 

Ida t$ff 

sta diskBlkflaffrl 

LoadH r4, IdiskBlkBuf 

LoadB rlL, #19 

LoadB rlB, 109 
jsr PutBlock 



get RAHdrive t, 

high bit aet=RAM device^ 

therefore J82=1571 

under geos. 



;set up for PutBlock 
: write header out to 

;ia/o 



;set up GEOS border 
; directory block £ 
.write out to 19/9 



LoadH r4, SdiskBlkBuf 

LoadB rlL, tDIR_r[UO ;pass sam block 

LoadB rlH, SI ;to 13/1 

jar PutBlock 

Ida to 

Idjt to ;no errors 

rts 



header: 
.byte S12. 

.byte 515. 
.byte S15, 
.byte SIS, 
,byte 515, 
byte 515, 
.byte 515, 
,byte S15, 
.byte 515, 
.byte 515. 
.byte $15, 
.byte 515. 
.byte S15, 
.byte 515, 
.byte S15, 
.byte 515, 
.byte 515, 
.byte S15, 

.byte 511, 
.byte 512, 
.byte 513. 
.byte 5U. 
.byte 513, 
.byte 513, 
byte 513, 
byte 512, 
,byte 512, 
,byte 512, 
.byte 512, 
.byte 512, 
.byte Sl2f 
.byte 511, 
.byte 5U, 
.byte 511, 
.byte 511, 
.byte 511, 
headerTitle: 



501, 541, m 



5ff, 5ff, 

Sff, Sff, 

5ff, Sff, 

5ff, Sff, 

Sff, Sff. 

Sff, Sff. 

Sff, Sff; 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff. Sff, 

Sff. Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sfc, Sff, 

Sff, Sfe, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, iff, 

Sff, Sff, 
Sff. Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 

Sff, Sff, 
.byte 



Slf 
Sl£ 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 
Slf 

S07 
507 
S07 
507 

507 
507 
507 
503 
S03 
S03 
503 
S03 
503 

501 
SOI 
501 

SOI 

501 

"BRam 1541" 



exactly vhat the 
naine in^lies the 
header block 
writen out by 
the PutBlock 
routine to 18/0 



byte 160,160,160,160,160 
byte 160,160, IfiO, 160 
byte 552, 544, SAO, 532 
byte 541, SAO, SAO, SAO 
byte SAO, 513, SOB 
byte "GEOS fonnat VI, 0^' 
byte 0,0,0,0,0,0,0,0,0,0,0,0 
byte 0,0,0,0,0.0,0,0,0,0,0,0 
byte 0,0,0,0,0,0,0,0,0,0,0,0 
byte 0,0,0,0,0,0,0,0,0,0,0,0 
byte 0,0,0,0.0,0,0,0,0,0,0,0 
byte 0,0,0,0,0,0,0,0,0,0,0,0 



ProgEnd: 
,end 



iiitti*il***t»»!HtJrtt******ittt******»*iH*l 

* HemTest.lnk * 

* * 

* Here are the link file directives for * 
' HeraTest . * 

JJ#ftt*i(i(****JrJrt*ilil*#ttt***t**»»im«(!Hrtt 



; The program HemTest.mn links to tf\22c\ the 
; cassette buffer. Start MEJfTEST with "sysSSS." 

.output HEHTEST ;nane of the output, 
.cba ;the linked file trill 

;be in the standard pre-Geos 
,psect 5033c ;foniat. Cassette buffer 

; always lies within CRAH. 
HemTest,rel ;link this file 



* HemTest.Qin * 

* This program tests each bank of * 

* meniory, setting each bit=0 then each * 

* bit=l. It runs from and returns to BASIC. ' 

llJrJr»ttttitititittlltJrfJrttitititittitttltlltllikJrltttlrlr 

.if Passl 

.include gecsMac 
.endif 



;equates used: 

aO = Sfb 

aOL = Sfb 

aOH = 5fc 

CPU_DDft = 500 

CPD DATA = 501 

CLfliCR = SeS44 

STROOT = Sable 

SCRTCH = 5^642 



NULL 



= 



;This is not a comprehensive jnemory test, nor is 
;it meant to be. Singly, each bit throughout an 
;entire bank is set to one and then tested for 
;this value. Then each bit is set to zero, and 
;tested again. On failure the screen is cleared 
;and an error cnessage is generated. AlO loust be 
;set to "considered" for a thorough test. If AEC 
;is disabled, then the screen will change each 
;time a new phase of the test is entered 
;providing a visual record of the test. The 
;program runs in less than 30 sees,, and then 
;returns to BASIC. 

Progstart; Ida CPU_DATA ,'push configuration 

;onto Stack to be restored on exit from routine, 
pha 

Ida CPU_DDR 
pha 

ora «%0OOlOOOO 

ata CPU_DDR 

Ida (lOOllOOOO 

sta CPD_DATA 
jsr MemTest 
Ida f^OOlllOOO 
sta CPD_[)ATA 
inc bankValue 



,'aet bit 4 to output 
;all ram BankO 

;all ram Bankl 

;ascii value 



;used by errHess to indicate Bank in which 
; fault occurred. 



jar HemTest 

Ida mOlOOOOO 
sta CPDJATA 
inc bankValue 

jsr HemTest 
Ida ItOOlOlOOO 
sta CPU DATA 
inc bankValue 
jar HemTest 



;all ram Bank2 



;all ram Bank3 
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Fc?pB CPG DDR 


;restore configuiation 


.oacro LoadW dest, value 


Ida dest+1 




Pcfifi CPD DATA 




Ida tj (value) 


abc source+l 




di 


;clear interrupt flag 


sta dest+1 


sta dest+1 






;3et by MejoTest routine 


Ida t[ (value) 


.endn 




jsr CLRSCR 




sta dest+0 


.macro CmpB source, dest 




Ida to 




,endi 


Ida source 




J5r SCBTCa 




[oacro HoveB source, dest 


cn^ dest 




lU 




Ida source 
sta dest 


,en<k 

.macro CaipBI source, innned 




testvalue: .byte Sff 




.endi 

.macro HoveH source^dest 


Ida source 
cn^ timoed 




HeioTest: Ida 1255 


; first set each bit of 


Ida source+1 


.endm 






;each location to one. 


sta dest+l 


.macro Cn^ source, dest 




3ta testvalue 




Ida source+0 


Ida source+l 




sei 




sta dest+0 


cirp dest+I 




HesLoop: Ida 14 


; start address to test 


.endii 


bne done 




;ia this case S040D. This 


is the Icvest CRAH can 


.macro add source 


Ida source+O 




;be aet allowing each bank to be fully tested. 


clc 


cnp dest+0 




5ta aOH 




adc source 


done: 




Ida #0 




.endia 


.endm 




sta aOL 




.uacro AddB source, dest 


.macro CuipWI source, ijnned 




tay 




clc 


Ida source+l 




Ida testvalue 




Ida source 


cap tl (imed) 




IS; ata (aO), y 


; write test value out 


adc dest 


bne done 




iny 




sta dest 


Ida source+O 




bne IS 




endi 


cs^ tKiMed) 




inc aOH 




.macro AddW source, dest 


done: 




bne 1$ 




Ida source 


.endm 




IdaM 




clc 


.nacro PushB source 




sta aOB 




adc dest+0 


Ida source 




Ida to 




sta dest+O 


pha 




sta aOL 




Ida source+1 


.endm 




tay 




adc dest+1 


.macro FushH source 




2S; Ida (aO), y 




sta dest+1 


Ida source+l 




cinp testvalue 




,eadB 


pha 




bne 3; 




,nacro AddVB value, dest 


Ida source+O 




iny 




Ida dest 


pha 




bne 2S 




clc 


.ends 




inc aOE 




adc lvalue 


.macro PopB dest 




bne 2$ 




sta dest 


pla 




Ida testvalue 


;if testvalue^O then 


.endl 


sta dest 






;3et up for 2nd pass. 


.macro AddVH value, dest 


.endD 




bne 4$ 




clc 


,ucio PopN dest 




rti 




Ida t[(value) 
adc dest+0 


pla 

sta dest+0 




4$; inc testvalue 


;now set each bit=0 


sta dest+0 


pla 




jnp HsoLoop 




.if (value >= 0) U [talue <= 255 
bcc no Inc 


sta dest+1 
,endm 




3S: PushB CPOATA 


;save configuration 


inc dest+1 


.macro bra addr 




ora #7 




nolDc; 


civ 




sta CPU DATA 


;aDd jup in I04' s 


.else 


bvc addr 




Ida t eriHeaa 




Ida t (value} 


.endm 




Idy IJerrHess 




adc dest+1 


.macro smb bitNumberrdest 




jsr STBOOT 


;u5e BASIC routine to 


sta dest+1 


pha 




J 


;output error message. 


.endif 


Ida t(l « bitNumberl 




PopB CPajATA 




endi 


ora dest 




rta 




.inacro sub source 
sec 
she source 


sta dest 
pla 

.encto 




errHess; byte H7,ll," 


FAULT FODND IN" 


,endn 


.macro sibf bitM^er,dest 




,l^e '■ imm\ 


BAHK" 


.macro SubB source, dest 
sec 


Ida #(1 «bitHumbef) 
era dest 




ban]cValue:,byte 48 


;ascii "0" 


Ida dest 


sta dest 




.byte 11,11,13, NULL 


sbc source 


.endm 








sta dest 


.macro mb bitNumberrdest 




The fallowing macros are from thejile 


.endi 

.macro SubH source, dest 


Ida t[-(l «bi:Number] 




'geosMac^ supplied with genprogrammer. 




.roacro LoadB dest, value 




Ida dest+0 


and dest 




Ida lvalue 




sec 


sta dest 




sta dest 




sbc source* Q 


PU 




.eDda 




sta dest+0 


-endffl 
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.Eucio zt^f bitNumber, dest 


.if tbitNuinbfir = 7) 


pip 




Ida * Ml «bitHiimher) 


bit source 


bra addr 




and dest 


bmi addr 


nobranch: 




st& dest 


.elif (bitNuifcei = 6) 


pla 




.SQfh 


bit source 


pip 




.mcto bbs bitKunber, source, addr 


bvs addr 


.endoi 




pbp 


.else 


.macro bbrf bitHumber, source, addr 




phA 


Ida source 


.if {bitsujnber = 7) 




Ida source 


and S(l « bitNunber) 


bit source 




and il(l « bitNumher} 


bne addr 


bpl addi 




beq nobranch 


.endi£ 


,*lif (bitfiumber = 6) 




ph 


.«ndi 


bit source 




pip 


.inacro bbr bitHuaiber, source, addr 


bvc addr 




bra addr 


php 


.eUe 




nobranch; 


pha 


Ida source 




pla 


Ida source 


and t(l «bitNuiiter) 




pip 


and 1(1 « bitNumber) 


beq addr 




.endfn 


bne nobranch 


,endi£ 




.macro bbsf bitNuinber, scurceraddt 


pla 


endai 


□ 


=: .=■ _^=. = 


1-800-544-7638 


SCHOOLS 





8UNTR0N C64/VIC20 
POWER SUPPLY$26.95 



Inquiries & Oregon buyers 
1-503-246-0924 



VSI w»lound«din 1964 and ^lassinf^ become a leader m the 
held olcablesand switching devices We are dedicated to d^o- 
vide top value and qyeiity do a budgel. School dtsTricts large 
and small are a specially of our lirm. Gomplele calalog on 

fea^m- 



6 Pih Dlnn 8 ft, male/n^ale 

6 Pin Dm. 9 n . male/malft 

6 Pm Dm. 18 fl . rna(e/male 

6 Pin Dm. 36 ft . mate-^maie 

e Pin Olfi Ej^tensicn. 6 ti 

5 Pm Din 10 3 RCA plugs. 5 ff . . . 

5 Pm Dm to ? flCA plugs. Stt .. ., 

5Pin Dm EKlension. lOfl 

a Pm Dm fo 2 *1CA plu^. SB 

SPin DmioSHCAplugs. 3H .. . 

DBS, 1£f" . Joyslich EKtenslOrt 

QBBr "f^ cable. 1 rem ale/ 2 male 

D89/Y'CfiMfl. tmalfl/^temBlfl 

DB9. en. male/male 

0B9, 6ff , Extension 

Parallel. 36 Pm, G H . maie/fliate . . 
Parallel. 36 Plfin 10 ft, inflle/male . . 
Parallel. 3G Pm. 6 h , male/tem 
Parallel. 36 Pm. 10 tr . fnale/Fem 
Serial. D525, 6 It . mele/male . 

Senal. DB75, 6 n , male/tem 

IBM Printer. 6 n . male^oiaie 

ISM Prmlaf. 10 fl . male/mel* . . . . 

IBM Printer. 15 ft. male/male 

IBM Pnnrer. 25 fl.. mBle'miM 

IMS Keyboard Extension. 5 Pin. 5 tl 
Power Cable, male/nghl angle lemale 
Gender Changer. 6 Pm. female/lem 
Gender Changer, parallel, male/ male 
Gender Changer, parallel, lemale/tem 
Gender Changer, serial, male /male 
Gender Changer, serial, femaie/'em 
Gender Changer. 069. rn ale ^ male 
Gender Changer, DB?. Famale/lemale 
Adaptor. DB9 female to De25 male 
Adaplor. 0B?5 male to 36 pm male 
NuN Mooem. OB26, male/n^aie 
Null Modem. Df]25. male/ler^ale 
Null Modem. DB25. Female'lemal* 
PS?32 Mmi Tester, male/female . . 
RS?33 Lme Stirge Protector 
Parallel Lme Booster 

BLASTER C64,C1 28 



B618 
.B636 

.MB 

M653 

MEfiS 
.M3Q3 
M385 
JS12 . 
JSY 
RJSV 

DBSMF 

C6MM 

ClOWM 

C6MF 

CIOMF 

H6MF 

rBPe 

IBP10 

rBPTS 

I0P25 

1BK£ . . . . 

PRfl 

GC6FF 

GCMM 

GCFF 

GSFF 

G9MM 

G9FF 

G9F25W 

A2536M 

Nr^MF 
NMFF 
TESMF 
S3P 

pte 



$5.95 

S?95 

112 95 

119 95 

. 15. 95 

S5.95 

S4 95 

55.95 

54 95 
S5.95 
M.95 
S6 95 
13. &5 
$3 95 
$B 95 
19 95 

$U 95 

£9.95 

$11 95 

£6 95 

18 95 

£6.95 

£10 95 

£16.95 

£24 95 

. £5 95 

S6 95 

£4 95 

£9.95 

£9 5S 

55 95 
£5 95 
£4 95 
£4 95 
£8 95 
£H 95 
15 95 
£5.95 
£5 95 

CT2.95 
£14 95 
124 95 




DATA aMITCHHi 
VSl swirche? end caole swapping, ihgie equipmsnl. N^ed 
e<lrB cables, urfi 5\66k a br'Md ^MFiOn 

■ OtJE YEAR WARRANTY, Delune All Metal Case 
' Compact Design, RolHry Switch 

■ Full Sfiielding. EircoMa FCC Requirements 



ABa" mcMlels 

ABCD all models 

Swrlch models available: 

6 Pin ^mi Dm. E Pm Dm. DQ9. Parallel. Ssrial 

Afl X Bb (cnjssoyert. Parallel or S«nal 



£29.95 
S39.95 



£44 95 



OUR 
SPECIALTY 



POWER CENTERS ^-i:-,::-:r:>mm$9»M 

IndMOnri ewtMl ol up 

to 9 oonponvnM|MM iiiiSMW 

onorolfairtlch. 

8r*l«ii protection: EIR/im^ 

IS AHP bTMAor, h««rr AMr oM^ 3 prang 1*19. U|MMl rodwr 




, $5,95 

Add auiornaticlirepower 10 your games.plug-m module 
rti at makes ihfl Tire button ol¥oiir|oyst>ck have machtne 
gun flcli^n. Adjustable sp***^ conlrol- 

DISKDOUBLER ^ $6.95 

The original' AM melal 
Culs an 9xacl square 
notch in the disk. Same 
spol we*>iime! 

TO ORDERS VISA. MASTER CARD, monfly ofiJers, cf check 
4aHow?1 days lor check la clear I acceplfld- 

SHIPPIHQ: S3 00. power suppIrM M Cfl. powef c&nter 55 DO 
S3 00 service charge on C O.O (cnh only) plus UP S., APO. 
FPO, «c-, no Bj^ira charg* 

TeB»IB: All sal&s are hnal Ofllflctive item^ r&pfaced Of 
repaired eX our discretion. RA* PEOUIRtD. Price and avail- 
d[>1l^ty subject to change 




App^e cables bIsq availaWgH 

NEW... MODEM LINKbyVSr $15.95 

This 19 It^a LINK from a Hayfls compatible modem to your 
Commodore EmulareeHayesor a 1470 The LINK con- 
nects To The uaef port, and Fras beer^ lesied in 1200 or 
2400 baud. Compacl. full plasTic case, why pay rnore. 

NEW. THEBUrrONbyVSI $8.95 

The BUTTON is a del tine rewi for tha C64. Pluga Into the 
usftF port, don't worry the port is duplicated on the out- 
aido odge ot thfl case. Cornfie in ■ rwfnpact ciiae, 3x1 ^^ 
lochaa. do not contuM the C&4 with the newer MC 

BLACK BOOK of C128 $15.95 

The besr friend a C12a uaer ever had 
Includes C-64.Cl2a.CPM. 1541. 
1571 261 pages of eaay lofind mfor- 
maTton 75 aasy to read charts and 
tables. The Black Book of C 125 is very 
much like a dictionary, a iM^ays ready lo 
answer yogr questions. 

COOLING FAN 

HeBT IS a #1 enemy to your 
disk fir\v9. Reduce bad 
^^ loads and cosily repair 
bills wiih a fan. keep your 
1&41 o-r 1571 cool. Quiet, 
surge and spike protec- 
tbon. EMI hitermg 

VOICE MASTER JR. $37.95 

Turn your computer into a tal*iir>g and Iklening servant. 
Gel speech and voice recognition fn ONE product. Easy 
to use, wr^s mufllc by whtsitkr^g a 1ur>e. Unlimited uses for 
fun, education, or business. 



OMNITRONIX INTERFACES 

HOT SHOT PLUS $M.«5 

Primer InMrfM*. SK buftor, npwidaMe to B4 K. < font* phA wMtor hi 
flOM, prM* doubt* or qvsd densHjr, CPU soleetloa 

DELUX n&232 INTlEftPACE IS«.« 

Connocta atandard modems or R& 233 ecc — ortw lo 1h* CM, Cl2ti 
MC, 8XM. VIC20, or PhM. 

SERIAL PRINTER INTERFACE $%4M 

Ltaa a slandani IIS232 Ifrp* prMor on mm Commodor*. CoHMMli to 
■orM Sua <« ptn}. 

IBM to CBM Adaptor WM 

New use jrew CM eoiW|Mllbla printor on a PC eompetlUe. Inoludoa a 
•pooKMy d aO g nad cable and sottnr*. 



JOYSTICK REDUCER 

■<ofyoiwiBJwMto.aMr biff >r i liatfdP<^ < iBiiqd<r B W % Hl E w y 

Ibbow Ifo** M* uflnQp wfMTS It 9000 fw* Blop mo vMKp how mMlf 
«mM l»M fM lidd to I^F Cntfi POHB bafdM flMdlMt Iho rlfH OH? 



{ 



THf 

BLnCK 
BOOK 

or 
C'I28 



APROSPAND-64 

Givo your C64 or 128 full oxpand Ability. This 
sKillfully dosignod OKt>an5ion unit plugs into 
th« canridgo port, (his giv«5 you 4 switchabio 
(single or in combination) cartridge slots, in- 
cludes fuse protection ond a roftOt button! 



\ 



$26.95 




12 PLUS 12 In. oartridgo port oMiaiofi S19-95 



SPECIAL PURCHASE 

Cirorr^Q platfld. heavy duty universal printer 
stand. Rubber fMi, allows Ironr. back, or 
bonom raed. For BO or 132 column printe^S- 
Onginal price $24. 9& 



Now $12.95 




VSl 3641 S W Evelyn. Portfand. OR 97219, Shipping $300, VISA, MC. money orders accepted. Price S stock, subject to Change. 



All prices quoted in US dollars - In Canada, add $4.00 shipping 
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Norih^Jest 



MUSIC 

CENTER 

INC. 



539 N. Wolf Rd. — Wheeling, IL 60090 
Hours— (Voice) Phone (312)520-2540 
Mon.-Thurs. 12:30-5:00, Sat. 12:00-4:00 

(24 Hour Order Recorder) 



} 



We want tote Commodore sh 

DO you le ^^^ ^g^^gj, ^g sj,„ siocK ano^^ ^^^^ ^^^.^^ programs. 

parts a.a,VaNe for so.e 8000, 9000 an. Bsenes.ode,s/ 

One of a Kind • Surplus • Monthly Special • Closeouts I ^^V^"uV.:.:{^. V^^B ^"r f 



64 k leee lo paFallel buflor . _ (199 00 

4073p 100cpBr«hab .._._._.... (9900 

B4k rarXi^KpeOa? _ . « ^ ..« (11000 

Srfi^rh COKona DM-?O0 ^ 11 79 95 

&A00, S3D0p. Diablo $30 ribbor^S M« 



aa2Gp and MPP 1^1 r-ibbona J5 50 

eOM 7 5 meg rehab . _ _ (495 00 

40^:30 ribbDOK . « ^ . . ^ » . « ^ . « ^ . KOO 
Everex ?400 ^xiernal modem . ^ . . ^ i24b 00 



NWM's 

INVEKTORY CONTROL 
SYSTEM- 



::iB 










'HequifH uae of superbasa 



load& program modules in fess than S seconds 

(aupefbaae 2) lo main menus m 3 seconds or l€$s 

on screen pop- up cAlculotor \n iransaciion 

modules 

mo£i daia centered fund ion use [he calcularor 

keypad 

ver5atile report fealufes allow lor 3 ways 10 print 

the same report User selecEa the lastesl method 

buHl In sophisticated export program allows tor 
complele packing ol [he daiabaae 

type ahead feature allowed 

yoL can d^spla¥ reports on screen 

access [o superbase menu tOf user developed 

applications 

B Version 1 B050 %39.95 

B Version 2 S05Q ...___....._... $39-95 

C-12e Version 1 1S71 $24-95 

H-128 Vanfon 1A2 8050 S44.95 



B-128 

$145 



U.S. 



NEW 12BK USER INSTALLABLE 
MEMORY EXPANSION! 
INTRODUCTORY PRICE OF ONLY 1125. 




SOFTWARE FOR THE B-1281!! 

C.A.B.S. Accounling 



SupeFtiflse S19 95 

Superscnpl S19 95 

Supers t^ice Inlagraled 

Superbaae & Superscript ....... $49 95 

Cflic Result $89,85 

Word nesuM $69.95 

Super Disk Doc 24.95 

The Power at: CbIc Result (Bookj S 1 '1 95 



General Ledger $ 9.95 

Accounts Receivable ,..,.... I 9 95 

Accounts Payable $ 9,95 

Order EriTry $ 995 

Payioil $ 9.95 

Buy ah 5 for only $24 95 

Superbase The Book. ......... 114 95 

Applied Caic Result (Book) $>4.95 




only $19900 

while suppf'es last 

With Five 
I nterp relive 
Languages: 

Cobol 
PAftcal 
Bailc 
Fori ran 
Apl 

Runs 8032 software. 
Great for schools and students 



64K Memory Expansion for 8032 only $110 
upgrades your 8032 to an 8096. 



COfWMODORE 
eOOO-9000 SOFTWARE & MiSC. 



9000 Superpet ..,,..,. $19900 

64Kexp tor 8032 S^O 

OZZ DBiabaae $25 

BPI General Ledger ............. 5?5 

BPI Accia Payable $25 

BPIJobCosT $25 

BPI Accis Receivable . $25 

BPI Invenlory ................. S25 



Superscript 803? .............. $79 

Superbase B096 $79 

Legal Time Ace ............... $25 

Dow Jones Program ............ $25 

Into Designs 8032 

Accounting System S50 

Superoflics 8096 $149 

Calc Result 8032 $89 



SFD1001 1 Megabyte 

PRICED AT $149.95 (US) 

S125 wilh purchase of Superpet 



SFD-1301 IS tnedrivelhat you should CQnsKler when you need large aniountso' data glorago llhold^ 
overl megabyte ol data on us singia Noppy drive. FasUEEE access lor your C-64 or 0-126- {C-64 and 

C-1 2B need an IEEE irtTerlace } Why selfle 'or slower drives wilh less storage capacity This drive sLores 
subslanitaUy more progiams and data Think ho* much mon&y you can save on dJSl< purchases- In 
faci, Jt slores alinost 7 Itmea rrtore Information Than yogr standard drive Buirelln board oi^nars love 
TFiem Andwhataninuoductorypnce^AtSifi9 95ihes0OnveswilEseUfasl, 90 don't wan Thi^dnveha? 
the idenhcal format ol a CBM 8350 drive, one ol Commodoraa niosi durable floppy drrves. 




MODEL 




SFD-1001 


Sector/Cylindsf 


— 


DRIVES 




1 


Sector/Track 


23-29 


MEADS/DPfVt 




2 


Bytes/Seclor 


258 


STORAGE CAPACITY (Per Unil) 


Free Blocks 


4133 


Formatted 




LOfiMb 


TFIANSFER RATES (Byles/Sec) 




MAXIMUM {Each Drive) 






Internal 


40 K& 


Sequendal File 




1.06 Mh 


ieEE-48e Bus 


1?Kb 


nefafive File 




1.04 Mb 


ACCESS TiME {Milfi-seconds) 




Disk System 






Track-io-irack 


* 


Buifer RAM TBytes) 




4K 


Average track 


i^ 


DISK FORMATS (Each Dr 


ive) 




Average Latency 


100 


Cylinders (Tracks) 




t77) 


Speed (RPM) 


300 



ORDER NOW WHiLE STOCK LASTSl 

Send or call your orders 10 NorihwaftlUutlt Ctnlar, Inc. S39 N. Wolf Rd., wn»hng IL 60D9D. ^12-520- 
2540Fof prepaid orders ado 125 50forSuperpfll.Sl04&5FO 1001. Si 145 B-128 SI0454023p.|i6 i590M 
dnd S^ J5 6JK memorv expansion Fof soffware add 13 50 fof firgl and $200 for each additional book, or 
proflram CanadianshippingchargesarpdoubleU S For CO O oTdersaddl^ ?0 pt^r cox shipped All orders 
rnusi be paid m U S funds Include phone num1?erswtth area codes Do no) use PO Box. only UPS shippable 
addresses A 2 weeh hold will l^e imoo^sd on all orders placed with a personal ot busmess check COO 
orders shipped m U S only and cash on aeNvery. no checks 30 day warraniy on all proaucrslron> NWU. Int 
No manufacturer warranly NWM reserves the rsght lo limil quanlihes to stock on hand and ad|ust [Wices 
without notice' 

Ail pn^tB q^oled In US dollars. 



News BRK 



Submitting Ne^^ s BRK Prtsh Releases 

If you have a press release you would like lo submit for the 
News BRK column, make sure that the computer or device for 
which the product is intended is prominently noted. We re- 
ceive hundreds of press releases for each issue and those 
whose intended readership is not clear must unfortunately go 
straight into the trash bin. We only print product releases 
which are in some way applicable to Commodore equipment. 
News of events such as computer shows should be received at 
least six months in advance. The News BRK column is com- 
piled solely from pre^s releases and is intended only to dis- 
seminate information; we have not necessarily tested the prod- 
ucts. 

Turbo Master CPU Processor Accelerator for C64: 

Schnedler Systems' Turbo Master CPU accelerator cartridge 
speeds up the operation of the Commodore 64. A replacement 
microprocessor clocked at 4.09 MHz provides four times 
faster processing speed, not merely a disk speed-up, BASIC, 
word processor scrolling, spreadsheets, assemblers, graphics 
and GEOS are all accelerated. In addition, ^turbo' disk routines 
are included in ROM for five times faster disk load and save, 
as well as a DOS 'wcdge\ The plug-in cartridge features an 
onboard 65C02 processor, 64K RAM and a 32K EPROM. 

According to the manufacturer. Turbo Master CPU is compati- 
ble with nearly all C64 software. This includes programs writ- 
ten in BASIC, ML programs, GEOS applications, programs 
that use bank switching to access RAM under ROM. programs 
that move screen memory, and bit-mapped graphics screens. 
The main limitation is that the few ML programs that use Mile- 
gal" or undocumented 6302 op-codes will not run because Tur- 
bo Master CPU uses an enhanced 65C02 in which many previ- 
ously undocumented op-codes are now officially assigned as 
useful instructions. 

Turbo Master CPU is intended for regular C64 and 64C com- 
puters. It also works with the SX-64 portable. It is not intend- 
ed for the C128, even in C64 mode. The 'turbo' disk routines 
are for a 1541 disk drive, or close compatible. The *turbo*disk 
routines can easily be turned off if you are using a different 
drive, without alTecting the faster processing speed of the 
computer. Cassette tape cannot be used with Turbo Master 
CPU. Turbo Master CPU can be used with Schnedler Systems 
data acquisition and control interface boards, but not with oth- 
er cartridges. (However the possibility of an adapter to allow 

use in conjunction with a 1764 REU is being investigated.) 

Turbo Master CPU is almost exactly the size of an REU. It has 
a metal case with a gold-plated circuit board edge connector 
extending about 1.5 inches. 



In addition to the Rockwell R65C02P4 clocked at 4.09MHz, 
Turbo Master includes its own 64K of fast static RAM (120 
ns) and a 32K EPROM. The on-chip port on the regular 6510 
processor in the C64 is emulated with TTL logic for bank 
switching. There are 16 ICs in all. In fact, Turbo Master CPU 
is practically a complete 64K microcomputer, lacking only a 
keyboard and screen. During operation of Turbo Master CPU, 
the 6510 processor in the C64 is completely bypassed, while 
the VIC chip, SID chip, keyboard and serial bus port are all 
accessed by the cartridge and operate normally. The 6526 CIA 
timers in the C64 continue to be clocked at their usual 1.0225 
MHz rate. Speed change between the standard 1.0225 MHz 
processor clock rate and the fast 4.09 MHz clock rate can be 
accomplished either manually using the switches, or by soft- 
ware, (The software speed switch is bit 7 of memory address 
$00.) Schnedler Systems also markets the MAE assembler, 
which recognizes the full 65C02 instruction set. 

Included in the cartridge is a switch for selecting ROM 1 or 
ROM 2. ROM 1 has no tape routines, replacing them with the 
fast disk routines and a DOS wedge. ROM 1 is highly compat- 
ible but ROM 2 is nevertheless provided. The cassette tape 
routines are present, but are disabled. ROM 2 does not have 
any extra features compared to a standard CBM Kemal ROM, 
but you still have the benefit of four times faster processing 
speed. 
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Turbo Master CPU comes with a 24-page manual, plus a disk 
containing a few demo and utility programs, as well as text 
files for assembly language programmers documenting the en- 
hanced 65C02 instruction set. 
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The introductory price of the Turbo Master CPU is $179 US, 
shipping prepaid to US addresses- Orders may be placed by 
telephone or mail. Visa and MasterCard accepted. Ten-day sat- 
isfaction or money back guarantee. Order from: Schnedler 
Systems, 25 Eastwood Rd.. RO. Box 5964, Asheville, NC, 
28813, Telephone: (704) 274-4646. Shipment from stock with- 
in 24 hours via UPS. 

Dialogue 128: Advanced Temiinal Software for the C128 and 
C128D. Over two years of work has gone into making Dia- 
logue 128 the ideal terminal, with features no other software 
can match. All commands are accessible via keyboard, help 
mentis, or 135 1 mouse. Colour graphics mode for both CBM 
and IBM type ANSI bulletin boards is supported. 

Features include: VT52 and VTIOO terminal emulation; 300, 
1200, 2400 and variable baud rates: support of major modem 
types through individual modem support files; all operations in 
2MHz fast mode. 

Visually, the package offers: 40/80 column selectable display, 
optional 25 or 50 line display and extensive in-program drop- 
down help screens. Memory usage options include: full sup- 
port of 1700 and 1750 REUs and CI28 RAMDOS (installed at 
page 11); 64,000 character capture buffer (800/1600 lines); 
80(K) character separate review buffer; optional 512,000 char- 
acter buffer with RAM expander (6400/12,800 Hnes); multiple 
buffer configurations (1 to 8 separate capture buffers). 

Dialogue 128 also includes: a full-featured text editor; exten- 
sive autodial/redial capabilities; the ability to autodial multiple 
numbers and load and save multi-dial lists; a 30-entry phone 
directory with individual terminal parameters and four user- 
defined function keys for each number in directory; ten other 
^'always active" macro keys; split screen conference mode; 
clock and alarm for both "real" time and on-line time: 
up/downloading with Punter CI or Xmodem (CRC and check- 
sum) protocols. 

A powerful auto-execute script language allows the advanced 
user the option of creating logon scripts or even developing 
programs to enable unattended operation. This feature could 
be used to set up a mini BBS. 

According to the manufacturer, loadable extension files vastly 
extend Dialogue's future capabilities. Extension files are in- 
cluded for RLE files (allows viewing of RLE graphics while 
online and storing them to disk) and for fully integrated char- 
acter set editing. Dialogue 128 is not copy protected - use any 
drive or combination of drives. Files are accessible via a con- 
venient file selection mode. Dialogue 128 uses burst mode for 
1571 and 1581 disk drives and permits use of partitions when 
using 1581 drives. It will also let you send printer commands 
via the DOS wedge. 

Sending in your registration card entitles you to access the 
Workable Concepts BBS (directly or via PunterNet) and the 
Workable Concepts newsletter 



Dialogue 128 was written by Gary Famianer and is available 
from: Workable Concepts Inc., 281 St. Germain Avenue, 
Toronto, ON, Canada, M5M 1W4. Price is $59.95 (Cdn) or 
$49,95 (US), 

QDisk Non-Volatile C128 CP/M RAM disk; Brown Boxes 
Inc. of Bedford, MA and Heme Data Systems Ltd., of Toronto, 
ON are pleased to announce the release of QDisk version 2,0. 
QDisk is a device driver for the Quick Brown Box that allows 
it to be used as a non-volatile RAM disk in C12S CP/M mode. 
QDisk is totally application-transparent and can be used with 
all standard CP/M software such as PIP, WordStar and dBase. 

The Quick Brown Box is a battery-backed CMOS static RAM 
cartridge for use with the C64 and C128 computers. It is 
available in 16K, 32K and 64K byte sizes for $69, $99 and 
$129 respectively (prices in US dollars; add S3 shipping and 
handling, and 5% sales tax in MA), The internal lithium bat- 
tery retains the contents of the RAM for up to ten years, even 
when the cartridge is unplugged from the computer. It is sup- 
plied with RAM disk software for use on a C64 and CI28 (in 
native mode). With the introduction of QDisk, the speed and 
flexibility of a non-volatile RAM disk is now available for 
C128 CP/M mode also. 

In addition to being able to use the entire 64K version as a sin- 
gle CP/M drive, QDisk allows partitioning of the 64K Quick 
Brown Box into two 32K areas, either one of which can be 
used for C64 or C128 native mode applications, or both of 
which can be used as separate CP/M drives. Once the driver is 
installed, the Quick Brown Box can be accessed as a normal 
CP/M disk drive. However, unlike the standard CI28 CP/M 
RAM disk using the 1700/1750 REUs, QDisk does not lose its 
contents when the computer is turned off. Programs and data 
files remain stored until needed and can be recalled in an in- 
stant. 

QDisk is available for $9.95 (US) or $10.95 (Cdn.) plus $2.00 
shipping and handling from: Heme Data Systems Ltd., P.O. 
Box 714, Station *C\ Toronto, ON, M6J 3SI. Phone: (416) 
535-9335. For more information about the Quick Brown Box, 
contact: Brown Boxes Inc, 26 Concord Road, Bedford, MA, 
01730. Phone: (617) 275-0090 or (617) 862-3675. 

B-I2S Hardware Enhancemenis 

The low-profile B-128 is being supported by a line of hard- 
ware enhancement products from Anderson Communications 
Engineering. 

The B-1024 is a 1 MB memory expansion board that implemen- 
ts banks 0-14 with socketed 256K dynamic RAM. This in- 
crease, for example, allows 8 documents with Superscript II; 
28,560 input values with Calc Result; and 14 8032s with the 
multi-tasking 8432 Emulator software package. The board is 
fully assembled and tested. It plugs internally onto pin fields 
in the low profile B-128 and installs in minutes. The original 
configuration of a stock B-128 can be restored at any time by 
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simply removing the board; this is a non-destructive upgrade. 
In addition to the megabyte of memory there are pin fields for 
future I/O. a ram/rom socket to implement $080()-$lFFF in 
BANK 15» documentation for installation^ parts layout, 
schematic diagram, and a machine language memory test util- 
ity on 80?iO disk. Three memory density options are available. 
The board can be fully populated with user-purchased 41256- 
15 DRAM. Pricing: B-1024 with 1024K installed is $699, with 
5 1 2K installed is $499, with OK installed is $289, 

The 24K RAM/ROM Cartridge adds another 24K of 
memory to your B-I28/CBM-256 system unit in BANK 15 from 
$2000-$7FFR It comes complete in a plastic case with 24K of 
SRAM, is assembled and tested, and is ready to be plugged into 
the cartridge port. This cartridge is used with many software 
packages available from the Chicago B-128 Users Group 
(CBUG, 4102 N, Odell, Norridge. IL 60634) such as Scott's 
BMON. JCL Workshop, Harrison^ Assembler, Jarvis/Springer 
Serial Bus Software, and Liz Deal's Keytrix to name a few. 
Price: S84-95 

Serial Bus peripherals can now be connected to the B-'I281 
The Serial Bus Interface is a full featured hardware interface 
for the B-128 implementing the Commodore serial bus with 
the functions of controller, listener/talker, slow bus. fast bus, 
attention acknowledge, power-on serial bus reset, and manual 
serial bus reset. It comes in a rugged plastic case and connects 
to the user port via a ribbon cable. This interface operates with 
the Jarvis/Springer Serial Bus Software Package available 
from CBUG, Price: $59,95 



are of standard piano key dimensions. The SFX keyboard 
overiay is a small two-octave keyboard that fits on top of the 
computer. 

FM Composer and Sound Editor; This software is compatible 
with the SFX Sound Expander module. It is a MIDi- 
compatiblc nine-channel sequencer developed in cooperation 
with England's Reading University; it allows you to enter, edit 
and play back any piece of music that can be written in stan- 
dard music notation. Among the features supported are: 
crescendo and decrescendo. loudness settings for individual 
notes (ppp to fff), repeats (da coda, dal Segno, start etc.), 
transposition, tempo settings, performance voice (may be 
changed for every note if desired, choosing from up to 64 
voices in any composition), key, detuning (for chorus effects), 
copy and move options. 

The Sound Editor program provides the tools to create, edit, 
store, and recall a wide variety of sounds for use with the 
Sound Expander. It also includes a random sound generator 
that lets the computer generate sounds on its own, a MIDI- 
compatible synthesizer mode and a drum machine. 



t^v 



.-.-^ 
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The RAM/ROM Socket allows implementation of the 6K 
memory area below the cartridge port from $0800-SIFFF in 
Bank 15. It is a small circuit board with connector and 2S-pin 
socket that will receive an 8K SRAM or ROM to customize 
your applications. Price; $24.95 

A copy of the latest ad can be obtained by sending an SASE to 
Anderson Communications Engineering, 2560 Glass Road 
NE, Cedar Rapids, lA 52402. Terms: free shipping in USA, US 
funds, Iowa add 49{, allow 6-8 weeks. 

SFX Sound Expander: This expansion module for the 
C64/CI28 is based on a custom LSI chip that provides a pro- 
grammable nine voice FM synthesizer on a single chip. The 
manufacturer reports a great improvement in sound quality 
and variety over that of the Commodore SID chip. The basic 
software package that comes with the Sound Expander is a 
menu-driven program that includes a large selection of voices 
(more can be added with the optional FM Composer and 
Sound Editor program), keyboard split, chorus, transposition, 
one-fmger chords, a rhythm machine, a riff machine and more. 
Also included with the Sound Expander is a Programmer's 
Reference Guide that gives at! the programming details. 

The SFX full-size keyboard combines with the SFX Sound 
Expander to create a *'truly professional musical instrument", 
the manufacturer says. The keys on the five-octave keyboard 



SFX Sound Expander is $1^0.00 (US); SFX FuII-Size Key- 
board is $145.50; SFX Keyboard Overiay is $14.00; SFX 
Composer and Sound Editor is $45.00; SFX Sound Sampler is 
$89.00. Available from: Feam & Music, 519 W. Taylor #1 14. 
Santa Maria. CA, 93454, Call: (800) 447-3434. In CA, call 
(805) 925-6682. 

Zoom! for the C64: Discovery Software International, Inc, 
has announced the release of ZOOM!, the company's second 
arcade-style game for the C64/CI28. The game, described as 
easy-to-leam and non-violent, features a character named 
Zoomer, who is chased by a gang of reckless enemies through 
an outer space land called Zoomland. Zoomer's mission is to 
dart through Zoomland, capturing territories and collecting 
points. 

According to the manufacturer. Zoom! is designed to appeal lo 
video game enthusiasts at all skill levels, and challenges play- 
ers' reflexes and strategic thinking abilities. The game has 50 
levels of play for one or two players. Suggested retail price of 
Zoom! is $29.95 (US). The game carries a 30-day uncondi- 
tional money-back guarantee. □ 
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Potpourri Disk 






Help! 




War Balloons 




Bog the Elves 




















This HELPful utility gives you instant 
menu-driven access to text files 
at the touch of a key - while any 
program is running! 




Shoot down those evil Nazi War 
Balloons with your handy Acme 
Cannon! Don't let them get away! 




A cute ittle arcade-style game; 
capture the eives in the bag as 
quickly as you can - but don't get 
the good elf! 
















Von Googol 










Loan Helper 
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Blacklactf < > 


At ast! The mad philosopher, 
Helga von Googol brings her own 
brand of wisdom to the small 
screen! If this is 'AI'. then it just ain't 
naturall 
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How much is that loan really going 
to cost you? Which interest rate 
can you afford? With Loan Helper, 
the answers are as close as your 
friendly 64i 


The most f exible blackjack simufa- 
tion you'll find anywhere. Set up 
your favourite rule variations for 
doubling, surrendering and split- 
ting the deck. 
















News 










Keyboard 






File Compare 










Save the money you spend on 
those supermarket tabloids - this 
program will generate equo ly 
convincir;g headine copy - for 
free! 
















Learning how to play the piano? 
■ This handy educational program 
makes it easy and fun to learn the 
notes on the keyboard. 






Which of those two files you just 
created is the most recent ver- 
sion? With this great utility you'll 
never be left wondering. 
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Flledump 




Wrd 




Ghoul Dogs 












Examine your disk flies FAST with 
this machine language utility 
Handles six formatSn including hex, 
decimal CBM and true ASCII 
WordPro and SpeedScript. 


1 
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The uitimate in easy-to-use data 
base programs, WRD ets you 
quick y and simply create, exam- 
ine and edit just about any data. 
Comes with sample file. 


Arcade maniacs look out! You'll 
\ need all your dexterity to handle 
this wicked joystick-buster! These 
mod dog-monsters from space 
ore not for novices! 


















Anagrams 




Quiz 




Octagons 






Anagrams lets you unscramble 
words for crossword puzzJes and 
the like The program uses a recur- 
sive WL subroutine for maximum 
speed and efficiency 




Trivia farxiitlcs and students alike 
will have fun with this program, 
which gives you multiple choice 
tests on material you have en- 
tered with the WRD program. 




Just the thing for you Mensa types. 
Octagons is a challenging puzzle 
of the mirvd. Four leves of play 
and a tough 'memory' variation 
for real experts! 


















Life 




AHA! Lander 




Backstreets 




















A FAST machine language version 
of mathematician John Horton 
Conway's classic simuatfon. Set 
up your own 'colonies' and watch 
them growl 




AHAI's great lunar lander program, '• 
Use either joystick or keyboard to 
compete against yourself or up to 
8 other payers. Watch out for 
space mines! 




A nifty arcade gome, 100% ma- 
chine language, that helps you 
learn the typewriter keyboard 
whie you ploy! Unlike any typing 
program youVe seen! ^ 
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Exhibitors, contact: 
The IHunter Group 

(41 6) 595-5906 
Fax (416)595-5093 



Incredible bargains- 
Amazing new hardware and software. 
The excitement. 
Ir ail returns to Toronto for the sixth great year: 
Canada's annual computer extravaganza sponsored by 
Commodore Business Machines, 

The 1987 show set world records - 42,000 
showgoers made it the largest, best-attended Commo- 
dore show ever. 

Commodore will be at the 19!^8 show with a giant 
display area for its exciting computers, accessories and 
software. 

Thousands of brands will be shown and sold by 
other manufacturers, distributors and retailers. 

Top experts in home, business and educational 
computing will lead seminars and demonstrations 
which are free with admission for all show visitors. 
' The Amiga, the C-64, the C-128, the Commodore 
PC line, all the major peripherals, programs, accesso- 
ries - many more to be announced - they're all at the 
Sixth World of Commodore. 
Get in on the excitement. 



Produced in association with Commodore Business Machines 



